home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / memsz220.zip / MEMSIZE.CPP < prev    next >
C/C++ Source or Header  |  1994-02-07  |  112KB  |  3,313 lines
  1. /***************************************************************** MEMSIZE.CC
  2.  *                                        *
  3.  * System Resources Monitor                            *
  4.  *                                        *
  5.  * (C) Copyright 1991-1993 by Richard W. Papo.                    *
  6.  *                                        *
  7.  * This is 'FreeWare'.    As such, it may be copied and distributed        *
  8.  * freely.  If you want to use part of it in your own program, please        *
  9.  * give credit where credit is due.  If you want to change the            *
  10.  * program, please refer the change request to me or send me the        *
  11.  * modified source code.  I can be reached at CompuServe 72607,3111.        *
  12.  *                                        *
  13.  ****************************************************************************/
  14.  
  15. //
  16. // Things to do:
  17. //
  18. //   (1) Validate memory statistics against OS20MEMU.
  19. //
  20. //   (2) Provide an item to serve as a button to cause a secondary
  21. //     drive status window to be displayed.
  22. //
  23. //   (3) Make file system name display optional.
  24. //
  25. //   (4) Make drive percentage utilization available as an option.
  26. //
  27.  
  28. #define INCL_BASE
  29. #define INCL_PM
  30. #include <os2.h>
  31.  
  32. #include <stdio.h>
  33. #include <stdlib.h>
  34. #include <string.h>
  35.  
  36. #include "debug.h"
  37. #include "support.h"
  38.  
  39. #include "about.h"
  40. #include "config.h"
  41. #include "process.h"
  42. #include "profile.h"
  43. #include "restring.h"
  44.  
  45. #include "items.h"
  46.  
  47. #include "memsize.h"
  48.  
  49. #define STATIC static
  50.  
  51.  
  52. /****************************************************************************
  53.  *                                        *
  54.  *             Definitions & Declarations                *
  55.  *                                        *
  56.  ****************************************************************************/
  57.  
  58.   // Constants
  59.  
  60. #define PROGRAM_NAME       "MEMSIZE"
  61. #define CLASS_NAME        PROGRAM_NAME
  62.  
  63. #define WM_REFRESH        (WM_USER)
  64.  
  65. #define MAX_DRIVES      (26)
  66. #define DRIVE_ERROR      (0xFFFFFFFFL)
  67.  
  68. enum
  69. {
  70.   ITEM_CLOCK,
  71.   ITEM_ELAPSEDTIME,
  72.   ITEM_MEMORYFREE,
  73.   ITEM_SWAPFILESIZE,
  74.   ITEM_SWAPDISKFREE,
  75.   ITEM_SPOOLFILESIZE,
  76.   ITEM_CPULOAD,
  77.   ITEM_TASKCOUNT,
  78.   ITEM_TOTALFREE,
  79.   ITEM_BASE_COUNT
  80. } ;
  81.  
  82.  
  83.   // Data Types
  84.  
  85. typedef struct          // Parameters saved to system.
  86. {
  87.   // The Display Item List - - -
  88.   Item         *Items [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  89.   int          ItemCount ;
  90.  
  91.   // Data required for the display item objects to function.
  92.   ULONG       IdleCount ;
  93.   ULONG       MaxCount ;
  94.   BYTE          SwapPath [_MAX_PATH] ;
  95.   ULONG       MinFree ;
  96.   PBYTE       SpoolPath ;
  97.   COUNTRYINFO      CountryInfo ;
  98.   ResourceString *Day ;
  99.   ResourceString *Days ;
  100.   ResourceString *DaysOfWeek ;
  101.   ResourceString *DriveError ;
  102.  
  103.   // Window size and location
  104.   SWP     Position ;
  105.   BOOL     fPosition ;
  106.  
  107.   // User Options
  108.   BOOL     HideControls ;
  109.   BOOL     fHideControls ;
  110.  
  111.   BOOL     Float ;
  112.   BOOL     fFloat ;
  113.  
  114.   USHORT TimerInterval ;
  115.   BOOL     fTimerInterval ;
  116.  
  117.   // Presentation Parameters
  118.   BYTE     FontNameSize [80] ;
  119.   BOOL     fFontNameSize ;
  120.  
  121.   COLOR  BackColor ;
  122.   BOOL     fBackColor ;
  123.  
  124.   COLOR  TextColor ;
  125.   BOOL     fTextColor ;
  126. }
  127. PROFILE, *PPROFILE ;
  128.  
  129. typedef struct        // Data structure for window.
  130. {
  131.   HAB         Anchor ;
  132.   HMODULE     Library ;
  133.   HINI           ProfileHandle ;
  134.  
  135.   ULONG      IdleCounter ;
  136.   TID         IdleLoopTID ;
  137.   TID         MonitorLoopTID ;
  138.  
  139.   PROFILE     Profile ;
  140.  
  141.   HWND           hwndTitleBar ;
  142.   HWND           hwndSysMenu ;
  143.   HWND         hwndMinMax ;
  144.  
  145.   ULONG      Drives ;
  146.  
  147.   long         Width ;
  148.   long         Height ;
  149.  
  150. }
  151. DATA, *PDATA ;
  152.  
  153. typedef struct
  154. {
  155.   HAB Anchor ;
  156.   HMODULE Library ;
  157.   HINI ProfileHandle ;
  158. }
  159. PARMS, *PPARMS ;
  160.  
  161. typedef struct
  162. {
  163.   volatile PULONG Counter ;
  164.   PUSHORT Interval ;
  165.   HWND Owner ;
  166. }
  167. MONITOR_PARMS, *PMONITOR_PARMS ;
  168.  
  169.  
  170.   // Function Prototypes
  171.  
  172. extern INT main ( INT argc, PCHAR argv[] ) ;
  173.  
  174. STATIC MRESULT EXPENTRY MessageProcessor
  175. (
  176.   HWND hwnd,
  177.   USHORT msg,
  178.   MPARAM mp1,
  179.   MPARAM mp2
  180. ) ;
  181.  
  182. STATIC METHODFUNCTION Create ;
  183. STATIC METHODFUNCTION Destroy ;
  184. STATIC METHODFUNCTION Size ;
  185. STATIC METHODFUNCTION SaveApplication ;
  186. STATIC METHODFUNCTION Paint ;
  187. STATIC METHODFUNCTION Command ;
  188. STATIC METHODFUNCTION ResetDefaults ;
  189. STATIC METHODFUNCTION HideControlsCmd ;
  190. STATIC METHODFUNCTION Configure ;
  191. STATIC METHODFUNCTION About ;
  192. STATIC METHODFUNCTION ButtonDown ;
  193. STATIC METHODFUNCTION ButtonDblClick ;
  194. STATIC METHODFUNCTION PresParamChanged ;
  195. STATIC METHODFUNCTION SysColorChange ;
  196. STATIC METHODFUNCTION QueryKeysHelp ;
  197. STATIC METHODFUNCTION HelpError ;
  198. STATIC METHODFUNCTION ExtHelpUndefined ;
  199. STATIC METHODFUNCTION HelpSubitemNotFound ;
  200. STATIC METHODFUNCTION Refresh ;
  201.  
  202. STATIC int GetProfile ( HAB Anchor, HMODULE Library, HINI ProfileHandle, PPROFILE Profile ) ;
  203. STATIC VOID PutProfile ( HINI ProfileHandle, PPROFILE Profile ) ;
  204.  
  205. STATIC PSZ ScanSystemConfig ( HAB Anchor, PSZ Keyword ) ;
  206.  
  207. STATIC void ResizeWindow ( HWND hwnd, PPROFILE Profile ) ;
  208.  
  209. STATIC void HideControls
  210. (
  211.   BOOL fHide,
  212.   HWND hwndFrame,
  213.   HWND hwndSysMenu,
  214.   HWND hwndTitleBar,
  215.   HWND hwndMinMax
  216. ) ;
  217.  
  218. STATIC void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All ) ;
  219.  
  220. STATIC VOID APIENTRY MonitorLoopThread ( ULONG Parameter ) ;
  221.  
  222. STATIC VOID UpdateDriveList
  223. (
  224.   HAB Anchor,
  225.   HMODULE Library,
  226.   HINI ProfileHandle,
  227.   PPROFILE Profile,
  228.   ULONG OldDrives,
  229.   ULONG NewDrives
  230. ) ;
  231.  
  232. STATIC BOOL CheckDrive ( USHORT Drive, PBYTE FileSystem ) ;
  233.  
  234. STATIC ULONG CalibrateLoadMeter ( VOID ) ;
  235.  
  236. STATIC VOID APIENTRY CounterThread ( ULONG Parameter ) ;
  237.  
  238. STATIC HINI OpenProfile ( PSZ Name, HAB Anchor, HMODULE Library, HWND HelpInstance ) ;
  239.  
  240.  
  241. /****************************************************************************
  242.  *                                        *
  243.  *    Program Mainline                            *
  244.  *                                        *
  245.  ****************************************************************************/
  246.  
  247. extern INT main ( INT argc, PCHAR argv[] )
  248. {
  249.  /***************************************************************************
  250.   * Initialize the process.                            *
  251.   ***************************************************************************/
  252.  
  253.   Process Proc ;
  254.  
  255.  /***************************************************************************
  256.   * Now WIN and GPI calls will work.  Open the language DLL.            *
  257.   ***************************************************************************/
  258.  
  259.   HMODULE Library ;
  260.   if ( DosLoadModule ( NULL, 0, (PSZ)PROGRAM_NAME, &Library ) )
  261.   {
  262.     Debug ( HWND_DESKTOP, "ERROR: Unable to load " PROGRAM_NAME ".DLL." ) ;
  263.     DosExit ( EXIT_PROCESS, 1 ) ;
  264.   }
  265.  
  266.  /***************************************************************************
  267.   * Get the program title.                                        *
  268.   ***************************************************************************/
  269.  
  270.   ResourceString Title ( Library, IDS_TITLE ) ;
  271.  
  272.  /***************************************************************************
  273.   * Decipher command-line parameters.                        *
  274.   ***************************************************************************/
  275.  
  276.   BOOL Reset = FALSE ;
  277.  
  278.   ResourceString ResetCommand ( Library, IDS_PARMS_RESET ) ;
  279.  
  280.   while ( --argc )
  281.   {
  282.     argv ++ ;
  283.  
  284.     WinUpper ( Proc.QueryAnchor(), NULL, NULL, (PSZ)*argv ) ;
  285.  
  286.     if ( *argv[0] == '?' )
  287.     {
  288.       ResourceString Message ( Library, IDS_PARAMETERLIST ) ;
  289.  
  290.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  291.     Title.Ptr(), 0, MB_ENTER | MB_NOICON ) ;
  292.  
  293.       DosExit ( EXIT_PROCESS, 1 ) ;
  294.     }
  295.  
  296.     if ( !strcmp ( *argv, (PCHAR)ResetCommand.Ptr() ) )
  297.     {
  298.       Reset = TRUE ;
  299.       continue ;
  300.     }
  301.  
  302.     {
  303.       ResourceString Format ( Library, IDS_ERROR_INVALIDPARM ) ;
  304.  
  305.       BYTE Message [200] ;
  306.       sprintf ( (PCHAR)Message, (PCHAR)Format.Ptr(), *argv ) ;
  307.  
  308.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  309.     Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  310.  
  311.       DosExit ( EXIT_PROCESS, 1 ) ;
  312.     }
  313.   }
  314.  
  315.  /***************************************************************************
  316.   * Create the help instance.                            *
  317.   ***************************************************************************/
  318.  
  319.   HELPINIT HelpInit =
  320.   {
  321.     sizeof ( HELPINIT ),
  322.     0L,
  323.     NULL,
  324.     0,
  325.     0,
  326.     0,
  327.     0,
  328.     0,
  329.     NULL,
  330.     CMIC_HIDE_PANEL_ID,
  331.     PSZ ( PROGRAM_NAME ".HLP" )
  332.   } ;
  333.  
  334.   HelpInit.hmodHelpTableModule = HMODULE ( MAKEP ( 0xFFFF, ID_MAIN ) ) ;
  335.  
  336.   ResourceString HelpTitle ( Library, IDS_HELPTITLE ) ;
  337.  
  338.   HelpInit.pszHelpWindowTitle = HelpTitle.Ptr() ;
  339.  
  340.   HWND hwndHelp = WinCreateHelpInstance ( Proc.QueryAnchor(), &HelpInit ) ;
  341.  
  342.   if ( hwndHelp == NULL )
  343.   {
  344.     ResourceString Message ( Library, IDS_ERROR_WINCREATEHELPINSTANCE ) ;
  345.  
  346.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  347.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  348.   }
  349.  
  350.  /***************************************************************************
  351.   * Open/create the profile file.                                       *
  352.   ***************************************************************************/
  353.  
  354.   HINI ProfileHandle = OpenProfile ( PSZ(PROGRAM_NAME),
  355.     Proc.QueryAnchor(), Library, hwndHelp ) ;
  356.  
  357.   if ( ProfileHandle == NULL )
  358.   {
  359.     ResourceString Message ( Library, IDS_ERROR_PRFOPENPROFILE ) ;
  360.  
  361. //  Log ( "%s\r\n", Message.Ptr() ) ;
  362.  
  363.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  364.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  365.  
  366.     DosFreeModule ( Library ) ;
  367.     DosExit ( EXIT_PROCESS, 1 ) ;
  368.   }
  369.  
  370.  /***************************************************************************
  371.   * If we're going to reset the program's profile, do it now.               *
  372.   ***************************************************************************/
  373.  
  374.   if ( Reset )
  375.   {
  376.     PrfWriteProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  377.   }
  378.  
  379.  /***************************************************************************
  380.   * Create the frame window.                            *
  381.   ***************************************************************************/
  382.  
  383.   #pragma pack(2)
  384.   struct
  385.   {
  386.     USHORT Filler ;
  387.     USHORT cb ;
  388.     ULONG  flCreateFlags ;
  389.     USHORT hmodResources ;
  390.     USHORT idResources ;
  391.   }
  392.   fcdata ;
  393.   #pragma pack()
  394.  
  395.   fcdata.cb = sizeof(fcdata) - sizeof(fcdata.Filler) ;
  396.   fcdata.flCreateFlags =
  397.     FCF_TITLEBAR | FCF_SYSMENU | FCF_BORDER |
  398.     FCF_ICON | FCF_MINBUTTON | FCF_NOBYTEALIGN | FCF_ACCELTABLE ;
  399.   fcdata.hmodResources = 0 ;
  400.   fcdata.idResources = ID_MAIN ;
  401.  
  402.   HWND hwndFrame = WinCreateWindow
  403.   (
  404.     HWND_DESKTOP,
  405.     WC_FRAME,
  406.     Title.Ptr(),
  407.     WS_ANIMATE,
  408.     0, 0, 0, 0,
  409.     HWND_DESKTOP,
  410.     HWND_TOP,
  411.     ID_MAIN,
  412.     &fcdata.cb,
  413.     NULL
  414.   ) ;
  415.  
  416.   if ( hwndFrame == NULL )
  417.   {
  418.     ResourceString Message ( Library, IDS_ERROR_WINCREATEFRAME ) ;
  419.  
  420.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  421.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  422.  
  423.     PrfCloseProfile ( ProfileHandle ) ;
  424.     DosFreeModule ( Library ) ;
  425.     DosExit ( EXIT_PROCESS, 1 ) ;
  426.   }
  427.  
  428.  /***************************************************************************
  429.   * Associate the help instance with the frame window.                *
  430.   ***************************************************************************/
  431.  
  432.   if ( hwndHelp )
  433.   {
  434.     WinAssociateHelpInstance ( hwndHelp, hwndFrame ) ;
  435.   }
  436.  
  437.  /***************************************************************************
  438.   * Register the window class.                            *
  439.   ***************************************************************************/
  440.  
  441.   if ( NOT WinRegisterClass ( Proc.QueryAnchor(), PSZ(CLASS_NAME),
  442.     PFNWP(MessageProcessor), CS_MOVENOTIFY, sizeof(PVOID) ) )
  443.   {
  444.     ResourceString Format ( Library, IDS_ERROR_WINREGISTERCLASS ) ;
  445.  
  446.     BYTE Message [200] ;
  447.     sprintf ( PCHAR(Message), PCHAR(Format.Ptr()), CLASS_NAME ) ;
  448.  
  449.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  450.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  451.  
  452.     PrfCloseProfile ( ProfileHandle ) ;
  453.     DosFreeModule ( Library ) ;
  454.     DosExit ( EXIT_PROCESS, 1 ) ;
  455.   }
  456.  
  457.  /***************************************************************************
  458.   * Create client window.  If this fails, destroy frame and return.        *
  459.   ***************************************************************************/
  460.  
  461.   PARMS Parms ;
  462.   Parms.Anchor = Proc.QueryAnchor() ;
  463.   Parms.Library = Library ;
  464.   Parms.ProfileHandle = ProfileHandle ;
  465.  
  466.   HWND hwndClient = WinCreateWindow
  467.   (
  468.     hwndFrame,
  469.     (PSZ)CLASS_NAME,
  470.     (PSZ)"",
  471.     0,
  472.     0, 0, 0, 0,
  473.     hwndFrame,
  474.     HWND_BOTTOM,
  475.     FID_CLIENT,
  476.     &Parms,
  477.     NULL
  478.   ) ;
  479.  
  480.   if ( hwndClient == NULL )
  481.   {
  482.     ResourceString Message ( Library, IDS_ERROR_WINCREATEWINDOW ) ;
  483.  
  484.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message.Ptr(),
  485.       Title.Ptr(), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  486.  
  487.     WinDestroyWindow ( hwndFrame ) ;
  488.     if ( hwndHelp )
  489.     {
  490.       WinDestroyHelpInstance ( hwndHelp ) ;
  491.     }
  492.     PrfCloseProfile ( ProfileHandle ) ;
  493.     DosFreeModule ( Library ) ;
  494.     DosExit ( EXIT_PROCESS, 1 ) ;
  495.   }
  496.  
  497.  /***************************************************************************
  498.   * Wait for and process messages to the window's queue.  Terminate         *
  499.   *   when the WM_QUIT message is received.                    *
  500.   ***************************************************************************/
  501.  
  502.   QMSG QueueMessage ;
  503.   while ( WinGetMsg ( Proc.QueryAnchor(), &QueueMessage, NULL, 0, 0 ) )
  504.   {
  505.     WinDispatchMsg ( Proc.QueryAnchor(), &QueueMessage ) ;
  506.   }
  507.  
  508.  /***************************************************************************
  509.   * Discard all that was requested of the system and terminate.         *
  510.   ***************************************************************************/
  511.  
  512.   WinDestroyWindow ( hwndFrame ) ;
  513.  
  514.   if ( hwndHelp )
  515.   {
  516.     WinDestroyHelpInstance ( hwndHelp ) ;
  517.   }
  518.  
  519.   PrfCloseProfile ( ProfileHandle ) ;
  520.  
  521.   DosFreeModule ( Library ) ;
  522.  
  523.   DosExit ( EXIT_PROCESS, 0 ) ;
  524. }
  525.  
  526. /****************************************************************************
  527.  *                                        *
  528.  *    Window Message Processor                        *
  529.  *                                        *
  530.  ****************************************************************************/
  531.  
  532. STATIC MRESULT EXPENTRY MessageProcessor
  533. (
  534.   HWND hwnd,
  535.   USHORT msg,
  536.   MPARAM mp1,
  537.   MPARAM mp2
  538. )
  539. {
  540.  /***************************************************************************
  541.   * Dispatch the message according to the method table and return the        *
  542.   *   result.  Any messages not defined above get handled by the system     *
  543.   *   default window processor.                         *
  544.   ***************************************************************************/
  545.  
  546.   static METHOD Methods [] =
  547.   {
  548.     { WM_CREATE,        Create            },
  549.     { WM_DESTROY,        Destroy         },
  550.     { WM_SIZE,            Size            },
  551.     { WM_MOVE,            Size            },
  552.     { WM_SAVEAPPLICATION,    SaveApplication     },
  553.     { WM_PAINT,         Paint            },
  554.     { WM_BUTTON1DOWN,        ButtonDown        },
  555.     { WM_BUTTON2DOWN,        ButtonDown        },
  556.     { WM_BUTTON1DBLCLK,     ButtonDblClick        },
  557.     { WM_BUTTON2DBLCLK,     ButtonDblClick        },
  558.     { WM_PRESPARAMCHANGED,    PresParamChanged    },
  559.     { WM_SYSCOLORCHANGE,    SysColorChange        },
  560.     { WM_COMMAND,        Command         },
  561.     { HM_QUERY_KEYS_HELP,    QueryKeysHelp        },
  562.     { HM_ERROR,         HelpError        },
  563.     { HM_EXT_HELP_UNDEFINED,    ExtHelpUndefined    },
  564.     { HM_HELPSUBITEM_NOT_FOUND, HelpSubitemNotFound },
  565.     { WM_REFRESH,        Refresh         }
  566.   } ;
  567.  
  568.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefWindowProc ) ) ;
  569. }
  570.  
  571. /****************************************************************************
  572.  *                                        *
  573.  *    Create the main window.                         *
  574.  *                                        *
  575.  ****************************************************************************/
  576.  
  577. STATIC MRESULT APIENTRY Create
  578. (
  579.   HWND hwnd,
  580.   USHORT msg,
  581.   MPARAM mp1,
  582.   MPARAM mp2
  583. )
  584. {
  585.  /***************************************************************************
  586.   * Allocate instance data.                            *
  587.   ***************************************************************************/
  588.  
  589.   PDATA Data = PDATA ( malloc ( sizeof(DATA) ) ) ;
  590.  
  591.   memset ( Data, 0, sizeof(DATA) ) ;
  592.  
  593.   WinSetWindowPtr ( hwnd, QWL_USER, Data ) ;
  594.  
  595.  /***************************************************************************
  596.   * Grab any parameters from the WM_CREATE message.                *
  597.   ***************************************************************************/
  598.  
  599.   PPARMS Parms = (PPARMS) PVOIDFROMMP ( mp1 ) ;
  600.  
  601.   Data->Anchor = Parms->Anchor ;
  602.   Data->Library = Parms->Library ;
  603.   Data->ProfileHandle = Parms->ProfileHandle ;
  604.  
  605.  /***************************************************************************
  606.   * Get the current drive mask.                         *
  607.   ***************************************************************************/
  608.  
  609.   ULONG Drive ;
  610.   DosQueryCurrentDisk ( &Drive, &Data->Drives ) ;
  611.  
  612.  /***************************************************************************
  613.   * Initialize the global resource strings.                    *
  614.   ***************************************************************************/
  615.  
  616.   Data->Profile.Day       = new ResourceString ( Data->Library, IDS_DAY ) ;
  617.   Data->Profile.Days       = new ResourceString ( Data->Library, IDS_DAYS ) ;
  618.   Data->Profile.DaysOfWeek = new ResourceString ( Data->Library, IDS_DAYSOFWEEK ) ;
  619.   Data->Profile.DriveError = new ResourceString ( Data->Library, IDS_DRIVEERROR ) ;
  620.  
  621.  /***************************************************************************
  622.   * Get country information.                            *
  623.   ***************************************************************************/
  624.  
  625.   COUNTRYCODE CountryCode ;
  626.   ULONG Count ;
  627.   ULONG Status ;
  628.  
  629.   CountryCode.country = 0 ;
  630.   CountryCode.codepage = 0 ;
  631.  
  632.   Status = DosGetCtryInfo ( sizeof(Data->Profile.CountryInfo), &CountryCode,
  633.     &Data->Profile.CountryInfo, &Count ) ;
  634.   if ( Status )
  635.   {
  636.     BYTE Message [80] ;
  637.     WinLoadMessage ( Data->Anchor, Data->Library, IDS_ERROR_DOSGETCTRYINFO,
  638.       sizeof(Message), Message ) ;
  639.     Debug ( hwnd, (PCHAR)Message, Status ) ;
  640.     Data->Profile.CountryInfo.fsDateFmt = DATEFMT_MM_DD_YY ;
  641.     Data->Profile.CountryInfo.fsTimeFmt = 0 ;
  642.     Data->Profile.CountryInfo.szDateSeparator[0] = '/' ;
  643.     Data->Profile.CountryInfo.szDateSeparator[1] = 0 ;
  644.     Data->Profile.CountryInfo.szTimeSeparator[0] = ':' ;
  645.     Data->Profile.CountryInfo.szTimeSeparator[1] = 0 ;
  646.     Data->Profile.CountryInfo.szThousandsSeparator[0] = ',' ;
  647.     Data->Profile.CountryInfo.szThousandsSeparator[1] = 0 ;
  648.   }
  649.  
  650.  /***************************************************************************
  651.   * Get the SWAPPATH statement from CONFIG.SYS.                 *
  652.   ***************************************************************************/
  653.  
  654.   PSZ Swappath = ScanSystemConfig ( Data->Anchor, (PSZ)"SWAPPATH" ) ;
  655.  
  656.   if ( Swappath == NULL )
  657.   {
  658.     Swappath = (PSZ) "C:\\OS2\\SYSTEM 0" ;
  659.   }
  660.  
  661.   sscanf ( (PCHAR)Swappath, "%s %li",
  662.     Data->Profile.SwapPath, &Data->Profile.MinFree ) ;
  663.  
  664.  /***************************************************************************
  665.   * Find out where the spool work directory is.                 *
  666.   ***************************************************************************/
  667.  
  668.   Data->Profile.SpoolPath = NULL ;
  669.  
  670.   ULONG Size ;
  671.   if ( PrfQueryProfileSize ( HINI_PROFILE, (PSZ)"PM_SPOOLER", (PSZ)"DIR", &Size ) )
  672.   {
  673.     Data->Profile.SpoolPath = PSZ ( malloc ( (int)Size ) ) ;
  674.  
  675.     if ( Data->Profile.SpoolPath )
  676.     {
  677.       if ( PrfQueryProfileData ( HINI_PROFILE, (PSZ)"PM_SPOOLER", (PSZ)"DIR", Data->Profile.SpoolPath, &Size ) )
  678.       {
  679.     PBYTE p = (PBYTE) strchr ( (PCHAR)Data->Profile.SpoolPath, ';' ) ;
  680.     if ( p )
  681.     {
  682.       *p = 0 ;
  683.     }
  684.       }
  685.       else
  686.       {
  687.     free ( Data->Profile.SpoolPath ) ;
  688.     Data->Profile.SpoolPath = NULL ;
  689.       }
  690.     }
  691.   }
  692.  
  693.  /***************************************************************************
  694.   * Calibrate the old-style load meter, if the high resolution timer's      *
  695.   *   available.                                *
  696.   ***************************************************************************/
  697.  
  698.   Data->Profile.MaxCount = CalibrateLoadMeter ( ) ;
  699.   Data->Profile.MaxCount = (ULONG) max ( 1L, Data->Profile.MaxCount ) ;
  700.  
  701.  /***************************************************************************
  702.   * Get profile data. Try the OS2.INI first, then try for private INI.      *
  703.   *   If obtained from OS2.INI, erase it afterwards.                        *
  704.   ***************************************************************************/
  705.  
  706.   if ( GetProfile ( Data->Anchor, Data->Library, HINI_USERPROFILE, &Data->Profile ) )
  707.   {
  708.     GetProfile ( Data->Anchor, Data->Library, Data->ProfileHandle, &Data->Profile ) ;
  709.   }
  710.   else
  711.   {
  712.     PrfWriteProfileData ( HINI_USERPROFILE, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  713.   }
  714.  
  715.  /***************************************************************************
  716.   * Get the frame handle.                            *
  717.   ***************************************************************************/
  718.  
  719.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  720.  
  721.  /***************************************************************************
  722.   * Get the control window handles.                        *
  723.   ***************************************************************************/
  724.  
  725.   Data->hwndSysMenu  = WinWindowFromID ( hwndFrame, FID_SYSMENU  ) ;
  726.   Data->hwndTitleBar = WinWindowFromID ( hwndFrame, FID_TITLEBAR ) ;
  727.   Data->hwndMinMax   = WinWindowFromID ( hwndFrame, FID_MINMAX   ) ;
  728.  
  729.  /***************************************************************************
  730.   * Add basic extensions to the system menu.                    *
  731.   ***************************************************************************/
  732.  
  733.   static MENUITEM MenuSeparator =
  734.     { MIT_END, MIS_SEPARATOR, 0, 0, NULL, 0 } ;
  735.  
  736.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  737.  
  738.   static MENUITEM MenuItems [] =
  739.   {
  740.     { MIT_END, MIS_TEXT,      0, IDM_SAVE_APPLICATION, NULL, 0 },
  741.     { MIT_END, MIS_TEXT,      0, IDM_RESET_DEFAULTS,   NULL, 0 },
  742.     { MIT_END, MIS_TEXT,      0, IDM_HIDE_CONTROLS,    NULL, 0 },
  743.     { MIT_END, MIS_TEXT,      0, IDM_CONFIGURE,        NULL, 0 },
  744.   } ;
  745.  
  746.   for ( int i=0; i<sizeof(MenuItems)/sizeof(MenuItems[0]); i++ )
  747.   {
  748.     ResourceString MenuText ( Data->Library, i+IDS_SAVE_APPLICATION ) ;
  749.     AddSysMenuItem ( hwndFrame, MenuItems+i, MenuText.Ptr() ) ;
  750.   }
  751.  
  752.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  753.  
  754.  /***************************************************************************
  755.   * Add 'About' to the system menu.                        *
  756.   ***************************************************************************/
  757.  
  758.   static MENUITEM MenuAbout =
  759.     { MIT_END, MIS_TEXT, 0, IDM_ABOUT, NULL, 0 } ;
  760.  
  761.   ResourceString AboutText ( Data->Library, IDS_ABOUT ) ;
  762.  
  763.   AddSysMenuItem ( hwndFrame, &MenuAbout, AboutText.Ptr() ) ;
  764.  
  765.  /***************************************************************************
  766.   * Add 'Help' to the system menu.                        *
  767.   ***************************************************************************/
  768.  
  769.   static MENUITEM MenuHelp =
  770.     { MIT_END, MIS_HELP, 0, 0, NULL, 0 } ;
  771.  
  772.   ResourceString HelpText ( Data->Library, IDS_HELP ) ;
  773.  
  774.   AddSysMenuItem ( hwndFrame, &MenuHelp, HelpText.Ptr() ) ;
  775.  
  776.  /***************************************************************************
  777.   * Start the new load meter.                            *
  778.   ***************************************************************************/
  779.  
  780.   DosCreateThread ( &Data->IdleLoopTID, CounterThread, (ULONG)&Data->IdleCounter, 0, 4096 ) ;
  781.   DosSetPrty ( PRTYS_THREAD, PRTYC_IDLETIME, PRTYD_MINIMUM, Data->IdleLoopTID ) ;
  782.   DosSuspendThread ( Data->IdleLoopTID ) ;
  783.  
  784.   Data->Profile.IdleCount = 0 ;
  785.   Data->IdleCounter = 0 ;
  786.  
  787.   if ( Data->Profile.Items[ITEM_CPULOAD]->QueryFlag() )
  788.   {
  789.     DosResumeThread ( Data->IdleLoopTID ) ;
  790.   }
  791.  
  792.   PMONITOR_PARMS MonitorParms = PMONITOR_PARMS ( malloc ( sizeof(*MonitorParms) ) ) ;
  793.   MonitorParms->Counter = & Data->IdleCounter ;
  794.   MonitorParms->Interval = & Data->Profile.TimerInterval ;
  795.   MonitorParms->Owner = hwnd ;
  796.   DosCreateThread ( &Data->MonitorLoopTID, MonitorLoopThread, (ULONG)MonitorParms, 2, 8192 ) ;
  797.  
  798.  /***************************************************************************
  799.   * Add the program to the system task list.                    *
  800.   ***************************************************************************/
  801.  
  802.   ResourceString Title ( Data->Library, IDS_TITLE ) ;
  803.   Add2TaskList ( hwndFrame, Title.Ptr() ) ;
  804.  
  805.  /***************************************************************************
  806.   * Position & size the window.  For some reason, we must move and size     *
  807.   *   the window to the saved position before applying the resizing        *
  808.   *   function as fine-tuning.    Maybe the positioning request fails if        *
  809.   *   the window has no size?                            *
  810.   ***************************************************************************/
  811.  
  812.   WinSetWindowPos ( hwndFrame, HWND_BOTTOM,
  813.     Data->Profile.Position.x, Data->Profile.Position.y,
  814.     Data->Profile.Position.cx, Data->Profile.Position.cy,
  815.     SWP_SIZE | SWP_MOVE | SWP_ZORDER |
  816.     ( Data->Profile.Position.fl & SWP_MINIMIZE ) |
  817.     ( Data->Profile.Position.fl & SWP_RESTORE ) ) ;
  818.  
  819.   ResizeWindow ( hwnd, &Data->Profile ) ;
  820.  
  821.  /***************************************************************************
  822.   * Hide the controls if so configured.                     *
  823.   ***************************************************************************/
  824.  
  825.   if ( Data->Profile.HideControls
  826.     AND NOT ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  827.   {
  828.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  829.  
  830.     HideControls
  831.     (
  832.       TRUE,
  833.       hwndFrame,
  834.       Data->hwndSysMenu,
  835.       Data->hwndTitleBar,
  836.       Data->hwndMinMax
  837.     ) ;
  838.   }
  839.  
  840.  /***************************************************************************
  841.   * Get the saved presentation parameters and reinstate them.            *
  842.   ***************************************************************************/
  843.  
  844.   if ( Data->Profile.fFontNameSize )
  845.   {
  846.     WinSetPresParam ( hwnd, PP_FONTNAMESIZE,
  847.       strlen((PCHAR)Data->Profile.FontNameSize)+1, Data->Profile.FontNameSize ) ;
  848.   }
  849.  
  850.   if ( Data->Profile.fBackColor )
  851.   {
  852.     WinSetPresParam ( hwnd, PP_BACKGROUNDCOLOR,
  853.       sizeof(Data->Profile.BackColor), &Data->Profile.BackColor ) ;
  854.   }
  855.  
  856.   if ( Data->Profile.fTextColor )
  857.   {
  858.     WinSetPresParam ( hwnd, PP_FOREGROUNDCOLOR,
  859.       sizeof(Data->Profile.TextColor), &Data->Profile.TextColor ) ;
  860.   }
  861.  
  862.  /***************************************************************************
  863.   * Determine our font size.                            *
  864.   ***************************************************************************/
  865.  
  866.   HPS hPS = WinGetPS ( hwnd ) ;
  867.   RECTL Rectangle ;
  868.   WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  869.   WinDrawText ( hPS, 1, (PSZ)" ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  870.   Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  871.   Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  872.   WinReleasePS ( hPS ) ;
  873.  
  874.  /***************************************************************************
  875.   * Now that the window's in order, make it visible.                        *
  876.   ***************************************************************************/
  877.  
  878.   WinShowWindow ( hwndFrame, TRUE ) ;
  879.  
  880.  /***************************************************************************
  881.   * Success?  Return no error.                            *
  882.   ***************************************************************************/
  883.  
  884.   return ( 0 ) ;
  885. }
  886.  
  887. /****************************************************************************
  888.  *                                        *
  889.  *    Destroy main window.                            *
  890.  *                                        *
  891.  ****************************************************************************/
  892.  
  893. STATIC MRESULT APIENTRY Destroy
  894. (
  895.   HWND hwnd,
  896.   USHORT msg,
  897.   MPARAM mp1,
  898.   MPARAM mp2
  899. )
  900. {
  901.  /***************************************************************************
  902.   * Find the instance data.                            *
  903.   ***************************************************************************/
  904.  
  905.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  906.  
  907.  /***************************************************************************
  908.   * Release the instance memory.                        *
  909.   ***************************************************************************/
  910.  
  911.   free ( Data ) ;
  912.  
  913.  /***************************************************************************
  914.   * We're done.                                                             *
  915.   ***************************************************************************/
  916.  
  917.   return ( MRFROMSHORT ( 0 ) ) ;
  918. }
  919.  
  920. /****************************************************************************
  921.  *                                        *
  922.  *    Process window resize message.                        *
  923.  *                                        *
  924.  ****************************************************************************/
  925.  
  926. STATIC MRESULT APIENTRY Size
  927. (
  928.   HWND hwnd,
  929.   USHORT msg,
  930.   MPARAM mp1,
  931.   MPARAM mp2
  932. )
  933. {
  934.  /***************************************************************************
  935.   * Find the instance data.                            *
  936.   ***************************************************************************/
  937.  
  938.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  939.  
  940.  /***************************************************************************
  941.   * Find out the window's new position and size.                            *
  942.   ***************************************************************************/
  943.  
  944.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  945.  
  946.   SWP Position ;
  947.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  948.  
  949.   if ( NOT ( Position.fl & SWP_MINIMIZE )
  950.     AND NOT ( Position.fl & SWP_MAXIMIZE ) )
  951.   {
  952.     Data->Profile.Position.x = Position.x ;
  953.     Data->Profile.Position.y = Position.y ;
  954.  
  955.     Data->Profile.Position.cx = Position.cx ;
  956.     Data->Profile.Position.cy = Position.cy ;
  957.   }
  958.  
  959.  /***************************************************************************
  960.   * If hiding the controls . . .                        *
  961.   ***************************************************************************/
  962.  
  963.   if ( Data->Profile.HideControls )
  964.   {
  965.  
  966.    /*************************************************************************
  967.     * If changing to or from minimized state . . .                *
  968.     *************************************************************************/
  969.  
  970.     if ( ( Position.fl & SWP_MINIMIZE ) != ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  971.     {
  972.  
  973.      /***********************************************************************
  974.       * Hide the controls if no longer minimized.                *
  975.       ***********************************************************************/
  976.  
  977.       HideControls
  978.       (
  979.     NOT ( Position.fl & SWP_MINIMIZE ),
  980.     hwndFrame,
  981.     Data->hwndSysMenu,
  982.     Data->hwndTitleBar,
  983.     Data->hwndMinMax
  984.       ) ;
  985.     }
  986.   }
  987.  
  988.   Data->Profile.Position.fl = Position.fl ;
  989.  
  990.  /***************************************************************************
  991.   * We're done.                                                             *
  992.   ***************************************************************************/
  993.  
  994.   return ( 0 ) ;
  995. }
  996.  
  997. /****************************************************************************
  998.  *                                        *
  999.  *    Process SAVE APPLICATION message.                    *
  1000.  *                                        *
  1001.  ****************************************************************************/
  1002.  
  1003. STATIC MRESULT APIENTRY SaveApplication
  1004. (
  1005.   HWND hwnd,
  1006.   USHORT msg,
  1007.   MPARAM mp1,
  1008.   MPARAM mp2
  1009. )
  1010. {
  1011.  /***************************************************************************
  1012.   * Find the instance data.                            *
  1013.   ***************************************************************************/
  1014.  
  1015.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1016.  
  1017.  /***************************************************************************
  1018.   * Call function to put all profile data out to the system.            *
  1019.   ***************************************************************************/
  1020.  
  1021.   PutProfile ( Data->ProfileHandle, &Data->Profile ) ;
  1022.  
  1023.  /***************************************************************************
  1024.   * We're done.  Let the system complete default processing.                *
  1025.   ***************************************************************************/
  1026.  
  1027.   return ( WinDefWindowProc ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ) ;
  1028. }
  1029.  
  1030. /****************************************************************************
  1031.  *                                        *
  1032.  *    Repaint entire window.                            *
  1033.  *                                        *
  1034.  ****************************************************************************/
  1035.  
  1036. STATIC MRESULT APIENTRY Paint
  1037. (
  1038.   HWND hwnd,
  1039.   USHORT msg,
  1040.   MPARAM mp1,
  1041.   MPARAM mp2
  1042. )
  1043. {
  1044.  /***************************************************************************
  1045.   * Find the instance data.                            *
  1046.   ***************************************************************************/
  1047.  
  1048.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1049.  
  1050.  /***************************************************************************
  1051.   * Get presentation space and make it use RGB colors.                *
  1052.   ***************************************************************************/
  1053.  
  1054.   HPS hPS = WinBeginPaint ( hwnd, NULL, NULL ) ;
  1055.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  1056.  
  1057.  /***************************************************************************
  1058.   * Clear the window.                                *
  1059.   ***************************************************************************/
  1060.  
  1061.   RECTL Rectangle ;
  1062.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  1063.  
  1064.   GpiMove ( hPS, (PPOINTL) &Rectangle.xLeft ) ;
  1065.   GpiSetColor ( hPS, Data->Profile.BackColor ) ;
  1066.   GpiBox ( hPS, DRO_FILL, (PPOINTL) &Rectangle.xRight, 0L, 0L ) ;
  1067.  
  1068.  /***************************************************************************
  1069.   * Release presentation space.                         *
  1070.   ***************************************************************************/
  1071.  
  1072.   WinEndPaint ( hPS ) ;
  1073.  
  1074.  /***************************************************************************
  1075.   * Update the window and return.                        *
  1076.   ***************************************************************************/
  1077.  
  1078.   UpdateWindow ( hwnd, Data, TRUE ) ;
  1079.  
  1080.   return ( 0 ) ;
  1081. }
  1082.  
  1083. /****************************************************************************
  1084.  *                                        *
  1085.  *    Process commands received by Main Window                *
  1086.  *                                        *
  1087.  ****************************************************************************/
  1088.  
  1089. STATIC MRESULT APIENTRY Command
  1090. (
  1091.   HWND hwnd,
  1092.   USHORT msg,
  1093.   MPARAM mp1,
  1094.   MPARAM mp2
  1095. )
  1096. {
  1097.  /***************************************************************************
  1098.   * Dispatch all other commands through the method table.            *
  1099.   ***************************************************************************/
  1100.  
  1101.   static METHOD Methods [] =
  1102.   {
  1103.     { IDM_SAVE_APPLICATION, SaveApplication },
  1104.     { IDM_RESET_DEFAULTS,   ResetDefaults   },
  1105.     { IDM_HIDE_CONTROLS,    HideControlsCmd },
  1106.     { IDM_CONFIGURE,        Configure        },
  1107.     { IDM_EXIT,         Exit        },
  1108.     { IDM_ABOUT,        About        },
  1109.   } ;
  1110.  
  1111.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), NULL ) ) ;
  1112. }
  1113.  
  1114. /****************************************************************************
  1115.  *                                        *
  1116.  *    Process Reset Defaults menu command.                    *
  1117.  *                                        *
  1118.  ****************************************************************************/
  1119.  
  1120. STATIC MRESULT APIENTRY ResetDefaults
  1121. ( 
  1122.   HWND hwnd, 
  1123.   USHORT msg, 
  1124.   MPARAM mp1, 
  1125.   MPARAM mp2
  1126. )
  1127. {
  1128.  /***************************************************************************
  1129.   * Find the instance data.                            *
  1130.   ***************************************************************************/
  1131.  
  1132.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1133.  
  1134.  /***************************************************************************
  1135.   * Reset all profile data for this program.                    *
  1136.   ***************************************************************************/
  1137.  
  1138.   PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  1139.  
  1140.  /***************************************************************************
  1141.   * Reset the program's presentation parameters.                            *
  1142.   ***************************************************************************/
  1143.  
  1144.   WinRemovePresParam ( hwnd, PP_FONTNAMESIZE ) ;
  1145.   WinRemovePresParam ( hwnd, PP_FOREGROUNDCOLOR ) ;
  1146.   WinRemovePresParam ( hwnd, PP_BACKGROUNDCOLOR ) ;
  1147.  
  1148.  /***************************************************************************
  1149.   * Done.                                    *
  1150.   ***************************************************************************/
  1151.  
  1152.   return ( MRFROMSHORT ( 0 ) ) ;
  1153. }
  1154.  
  1155. /****************************************************************************
  1156.  *                                        *
  1157.  *    Process Hide Controls menu command.                    *
  1158.  *                                        *
  1159.  ****************************************************************************/
  1160.  
  1161. STATIC MRESULT APIENTRY HideControlsCmd
  1162. ( 
  1163.   HWND hwnd, 
  1164.   USHORT msg, 
  1165.   MPARAM mp1, 
  1166.   MPARAM mp2
  1167. )
  1168. {
  1169.  /***************************************************************************
  1170.   * Find the instance data.                            *
  1171.   ***************************************************************************/
  1172.  
  1173.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1174.  
  1175.  /***************************************************************************
  1176.   * Toggle the Hide Controls setting.                        *
  1177.   ***************************************************************************/
  1178.  
  1179.   Data->Profile.HideControls = Data->Profile.HideControls ? FALSE : TRUE ;
  1180.   Data->Profile.fHideControls = TRUE ;
  1181.  
  1182.  /***************************************************************************
  1183.   * Get the frame handle.                                *
  1184.   ***************************************************************************/
  1185.  
  1186.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1187.  
  1188.  /***************************************************************************
  1189.   * If controls aren't hidden yet, update the menu check-mark.              *
  1190.   ***************************************************************************/
  1191.  
  1192.   if ( Data->Profile.HideControls )
  1193.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1194.  
  1195.  /***************************************************************************
  1196.   * If not minimized right now, hide or reveal the controls.            *
  1197.   ***************************************************************************/
  1198.  
  1199.   if ( NOT ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  1200.   {
  1201.     HideControls
  1202.     (
  1203.       Data->Profile.HideControls,
  1204.       hwndFrame,
  1205.       Data->hwndSysMenu,
  1206.       Data->hwndTitleBar,
  1207.       Data->hwndMinMax
  1208.     ) ;
  1209.   }
  1210.  
  1211.  /***************************************************************************
  1212.   * If controls are no longer hidden, update the menu check-mark.        *
  1213.   ***************************************************************************/
  1214.  
  1215.   if ( NOT Data->Profile.HideControls )
  1216.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1217.  
  1218.  /***************************************************************************
  1219.   * Done.                                    *
  1220.   ***************************************************************************/
  1221.  
  1222.   return ( MRFROMSHORT ( 0 ) ) ;
  1223. }
  1224.  
  1225. /****************************************************************************
  1226.  *                                        *
  1227.  *    Process Configure command.                        *
  1228.  *                                        *
  1229.  ****************************************************************************/
  1230.  
  1231. STATIC MRESULT APIENTRY Configure
  1232. ( 
  1233.   HWND hwnd, 
  1234.   USHORT msg, 
  1235.   MPARAM mp1, 
  1236.   MPARAM mp2
  1237. )
  1238. {
  1239.  /***************************************************************************
  1240.   * Find the instance data.                            *
  1241.   ***************************************************************************/
  1242.  
  1243.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1244.  
  1245.  /***************************************************************************
  1246.   * Invoke the Configure dialog.  If cancelled, just return.            *
  1247.   ***************************************************************************/
  1248.  
  1249.   CONFIG_PARMS Parms ;
  1250.   Parms.id          = IDD_CONFIGURE ;
  1251.   Parms.hwndHelp      = WinQueryHelpInstance ( hwnd ) ;
  1252.   Parms.HideControls  = Data->Profile.HideControls ;
  1253.   Parms.Float          = Data->Profile.Float ;
  1254.   Parms.TimerInterval = Data->Profile.TimerInterval ;
  1255.  
  1256.   Parms.ItemCount     = Data->Profile.ItemCount ;
  1257.  
  1258.   PSZ  ItemNames [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  1259.   BOOL ItemFlags [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  1260.   for ( int i=0; i<Data->Profile.ItemCount; i++ )
  1261.   {
  1262.     ItemNames[i] = Data->Profile.Items[i]->QueryOption () ;
  1263.     ItemFlags[i] = Data->Profile.Items[i]->QueryFlag () ;
  1264.   }
  1265.   Parms.ItemNames = ItemNames ;
  1266.   Parms.ItemFlags = ItemFlags ;
  1267.  
  1268.   if ( WinDlgBox ( HWND_DESKTOP, hwnd, PFNWP(ConfigureProcessor),
  1269.     Data->Library, IDD_CONFIGURE, &Parms ) == FALSE )
  1270.   {
  1271.     return ( MRFROMSHORT ( 0 ) ) ;
  1272.   }
  1273.  
  1274.  /***************************************************************************
  1275.   * Save the new timer interval.                        *
  1276.   ***************************************************************************/
  1277.  
  1278.   Data->Profile.fTimerInterval = TRUE ;
  1279.   Data->Profile.TimerInterval = Parms.TimerInterval ;
  1280.  
  1281.  /***************************************************************************
  1282.   * Save the float-to-top flag.                         *
  1283.   ***************************************************************************/
  1284.  
  1285.   Data->Profile.fFloat = TRUE ;
  1286.   Data->Profile.Float = Parms.Float ;
  1287.  
  1288.  /***************************************************************************
  1289.   * Save the hide controls flag, and adjust the window if it changed.        *
  1290.   ***************************************************************************/
  1291.  
  1292.   Data->Profile.fHideControls = TRUE ;
  1293.   if ( Data->Profile.HideControls != Parms.HideControls )
  1294.   {
  1295.     HWND FrameWindow = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1296.     Data->Profile.HideControls = Parms.HideControls ;
  1297.     if ( Data->Profile.HideControls )
  1298.       CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1299.     if ( NOT ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  1300.     {
  1301.       HideControls
  1302.       (
  1303.     Data->Profile.HideControls,
  1304.     FrameWindow,
  1305.     Data->hwndSysMenu,
  1306.     Data->hwndTitleBar,
  1307.     Data->hwndMinMax
  1308.       ) ;
  1309.     }
  1310.     if ( NOT Data->Profile.HideControls )
  1311.       CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1312.   }
  1313.  
  1314.  /***************************************************************************
  1315.   * Determine if the display item list has changed.  If not, return.        *
  1316.   ***************************************************************************/
  1317.  
  1318.   BOOL ItemsChanged = FALSE ;
  1319.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  1320.   {
  1321.     if ( ItemFlags[i] != Data->Profile.Items[i]->QueryFlag() )
  1322.     {
  1323.       ItemsChanged = TRUE ;
  1324.       break ;
  1325.     }
  1326.   }
  1327.  
  1328.   if ( NOT ItemsChanged )
  1329.   {
  1330.     return ( MRFROMSHORT ( 0 ) ) ;
  1331.   }
  1332.  
  1333.  /***************************************************************************
  1334.   * If CPU load monitoring has changed, start/stop the monitoring thread.   *
  1335.   ***************************************************************************/
  1336.  
  1337.   if ( ItemFlags[ITEM_CPULOAD] != Data->Profile.Items[ITEM_CPULOAD]->QueryFlag() )
  1338.   {
  1339.     if ( ItemFlags[ITEM_CPULOAD] )
  1340.       DosResumeThread ( Data->IdleLoopTID ) ;
  1341.     else
  1342.       DosSuspendThread ( Data->IdleLoopTID ) ;
  1343.   }
  1344.  
  1345.  /***************************************************************************
  1346.   * Save the new item flags.                            *
  1347.   ***************************************************************************/
  1348.  
  1349.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  1350.   {
  1351.     if ( ItemFlags[i] )
  1352.       Data->Profile.Items[i]->SetFlag ( ) ;
  1353.     else
  1354.       Data->Profile.Items[i]->ResetFlag ( ) ;
  1355.   }
  1356.  
  1357.  /***************************************************************************
  1358.   * Resize the display window.                            *
  1359.   ***************************************************************************/
  1360.  
  1361.   ResizeWindow ( hwnd, &Data->Profile ) ;
  1362.  
  1363.  /***************************************************************************
  1364.   * Done.                                    *
  1365.   ***************************************************************************/
  1366.  
  1367.   return ( MRFROMSHORT ( 0 ) ) ;
  1368. }
  1369.  
  1370. /****************************************************************************
  1371.  *                                        *
  1372.  *    Process About menu command.                        *
  1373.  *                                        *
  1374.  ****************************************************************************/
  1375.  
  1376. STATIC MRESULT APIENTRY About
  1377. ( 
  1378.   HWND hwnd, 
  1379.   USHORT msg, 
  1380.   MPARAM mp1, 
  1381.   MPARAM mp2
  1382. )
  1383. {
  1384.  /***************************************************************************
  1385.   * Find the instance data.                            *
  1386.   ***************************************************************************/
  1387.  
  1388.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1389.  
  1390.  /***************************************************************************
  1391.   * Invoke the About dialog.                            *
  1392.   ***************************************************************************/
  1393.  
  1394.   ABOUT_PARMS Parms ;
  1395.   Parms.id = IDD_ABOUT ;
  1396.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1397.  
  1398.   WinDlgBox ( HWND_DESKTOP, hwnd, PFNWP(AboutProcessor),
  1399.     Data->Library, IDD_ABOUT, &Parms ) ;
  1400.  
  1401.  /***************************************************************************
  1402.   * Done.                                    *
  1403.   ***************************************************************************/
  1404.  
  1405.   return ( MRFROMSHORT ( 0 ) ) ;
  1406. }
  1407.  
  1408. /****************************************************************************
  1409.  *                                        *
  1410.  *    Process Mouse Button being pressed.                    *
  1411.  *                                        *
  1412.  ****************************************************************************/
  1413.  
  1414. STATIC MRESULT APIENTRY ButtonDown
  1415. (
  1416.   HWND hwnd,
  1417.   USHORT msg,
  1418.   MPARAM mp1,
  1419.   MPARAM mp2
  1420. )
  1421. {
  1422.  /***************************************************************************
  1423.   * Find the instance data.                            *
  1424.   ***************************************************************************/
  1425.  
  1426.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1427.  
  1428.  /***************************************************************************
  1429.   * Determine the new window position.                        *
  1430.   ***************************************************************************/
  1431.  
  1432.   TRACKINFO TrackInfo ;
  1433.   memset ( &TrackInfo, 0, sizeof(TrackInfo) ) ;
  1434.  
  1435.   TrackInfo.cxBorder = 1 ;
  1436.   TrackInfo.cyBorder = 1 ;
  1437.   TrackInfo.cxGrid = 1 ;
  1438.   TrackInfo.cyGrid = 1 ;
  1439.   TrackInfo.cxKeyboard = 8 ;
  1440.   TrackInfo.cyKeyboard = 8 ;
  1441.  
  1442.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1443.  
  1444.   SWP Position ;
  1445.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1446.   TrackInfo.rclTrack.xLeft   = Position.x ;
  1447.   TrackInfo.rclTrack.xRight  = Position.x + Position.cx ;
  1448.   TrackInfo.rclTrack.yBottom = Position.y ;
  1449.   TrackInfo.rclTrack.yTop    = Position.y + Position.cy ;
  1450.  
  1451.   WinQueryWindowPos ( HWND_DESKTOP, &Position ) ;
  1452.   TrackInfo.rclBoundary.xLeft   = Position.x ;
  1453.   TrackInfo.rclBoundary.xRight  = Position.x + Position.cx ;
  1454.   TrackInfo.rclBoundary.yBottom = Position.y ;
  1455.   TrackInfo.rclBoundary.yTop    = Position.y + Position.cy ;
  1456.  
  1457.   TrackInfo.ptlMinTrackSize.x = 0 ;
  1458.   TrackInfo.ptlMinTrackSize.y = 0 ;
  1459.   TrackInfo.ptlMaxTrackSize.x = Position.cx ;
  1460.   TrackInfo.ptlMaxTrackSize.y = Position.cy ;
  1461.  
  1462.   TrackInfo.fs = TF_MOVE | TF_STANDARD | TF_ALLINBOUNDARY ;
  1463.  
  1464.   if ( WinTrackRect ( HWND_DESKTOP, NULL, &TrackInfo ) )
  1465.   {
  1466.     WinSetWindowPos ( hwndFrame, NULL,
  1467.       (SHORT) TrackInfo.rclTrack.xLeft,
  1468.       (SHORT) TrackInfo.rclTrack.yBottom,
  1469.       0, 0, SWP_MOVE ) ;
  1470.   }
  1471.  
  1472.  /***************************************************************************
  1473.   * Return through the default processor, letting window activation        *
  1474.   *   and other system functions occur.                     *
  1475.   ***************************************************************************/
  1476.  
  1477.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1478. }
  1479.  
  1480. /****************************************************************************
  1481.  *                                        *
  1482.  *    Process Mouse Button having been double-clicked.            *
  1483.  *                                        *
  1484.  ****************************************************************************/
  1485.  
  1486. STATIC MRESULT APIENTRY ButtonDblClick
  1487. (
  1488.   HWND hwnd,
  1489.   USHORT msg,
  1490.   MPARAM mp1,
  1491.   MPARAM mp2
  1492. )
  1493. {
  1494.  /***************************************************************************
  1495.   * Send message to self to stop hiding the controls.                *
  1496.   ***************************************************************************/
  1497.  
  1498.   WinPostMsg ( hwnd, WM_COMMAND,
  1499.     MPFROM2SHORT ( IDM_HIDE_CONTROLS, 0 ),
  1500.     MPFROM2SHORT ( CMDSRC_OTHER, TRUE ) ) ;
  1501.  
  1502.  /***************************************************************************
  1503.   * Return through the default processor, letting window activation        *
  1504.   *   and other system functions occur.                     *
  1505.   ***************************************************************************/
  1506.  
  1507.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1508. }
  1509.  
  1510. /****************************************************************************
  1511.  *                                        *
  1512.  *    Process Presentation Parameter Changed notification.            *
  1513.  *                                        *
  1514.  ****************************************************************************/
  1515.  
  1516. STATIC MRESULT APIENTRY PresParamChanged
  1517. (
  1518.   HWND hwnd,
  1519.   USHORT msg,
  1520.   MPARAM mp1,
  1521.   MPARAM mp2
  1522. )
  1523. {
  1524.  /***************************************************************************
  1525.   * Find the instance data.                            *
  1526.   ***************************************************************************/
  1527.  
  1528.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1529.  
  1530.  /***************************************************************************
  1531.   * Get the presentation parameter that changed.                *
  1532.   ***************************************************************************/
  1533.  
  1534.   switch ( LONGFROMMP(mp1) )
  1535.   {
  1536.  
  1537.    /*************************************************************************
  1538.     * If font, note the fact that we now have a font to be saved as        *
  1539.     *    part of the configuration.  Get the font metrics and resize        *
  1540.     *    the window appropriately.                        *
  1541.     *************************************************************************/
  1542.  
  1543.     case PP_FONTNAMESIZE:
  1544.     {
  1545.       ULONG ppid ;
  1546.       if ( WinQueryPresParam ( hwnd, PP_FONTNAMESIZE, 0, &ppid,
  1547.     sizeof(Data->Profile.FontNameSize), &Data->Profile.FontNameSize,
  1548.     0 ) )
  1549.       {
  1550.     Data->Profile.fFontNameSize = TRUE ;
  1551.       }
  1552.       else
  1553.       {
  1554.     strcpy ( (PCHAR)Data->Profile.FontNameSize, "" ) ;
  1555.     Data->Profile.fFontNameSize = FALSE ;
  1556.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", NULL, 0 ) ;
  1557.       }
  1558.  
  1559.       HPS hPS = WinGetPS ( hwnd ) ;
  1560.       RECTL Rectangle ;
  1561.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  1562.       WinDrawText ( hPS, 1, (PSZ)" ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  1563.       Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  1564.       Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  1565.       WinReleasePS ( hPS ) ;
  1566.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1567.       break ;
  1568.     }
  1569.  
  1570.    /*************************************************************************
  1571.     * If background color, note the fact and repaint the window.        *
  1572.     *************************************************************************/
  1573.  
  1574.     case PP_BACKGROUNDCOLOR:
  1575.     {
  1576.       ULONG ppid ;
  1577.       if ( WinQueryPresParam ( hwnd, PP_BACKGROUNDCOLOR, 0, &ppid,
  1578.     sizeof(Data->Profile.BackColor), &Data->Profile.BackColor, 0 ) )
  1579.       {
  1580.     Data->Profile.fBackColor = TRUE ;
  1581.       }
  1582.       else
  1583.       {
  1584.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1585.     Data->Profile.fBackColor = FALSE ;
  1586.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", NULL, 0 ) ;
  1587.       }
  1588.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1589.       break ;
  1590.     }
  1591.  
  1592.    /*************************************************************************
  1593.     * If foreground color, note the fact and repaint the window.        *
  1594.     *************************************************************************/
  1595.  
  1596.     case PP_FOREGROUNDCOLOR:
  1597.     {
  1598.       ULONG ppid ;
  1599.       if ( WinQueryPresParam ( hwnd, PP_FOREGROUNDCOLOR, 0, &ppid,
  1600.     sizeof(Data->Profile.TextColor), &Data->Profile.TextColor, 0 ) )
  1601.       {
  1602.     Data->Profile.fTextColor = TRUE ;
  1603.       }
  1604.       else
  1605.       {
  1606.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1607.     Data->Profile.fTextColor = FALSE ;
  1608.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", NULL, 0 ) ;
  1609.       }
  1610.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1611.       break ;
  1612.     }
  1613.   }
  1614.  
  1615.  /***************************************************************************
  1616.   * Return through the default processor, letting window activation        *
  1617.   *   and other system functions occur.                     *
  1618.   ***************************************************************************/
  1619.  
  1620.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1621. }
  1622.  
  1623. /****************************************************************************
  1624.  *                                        *
  1625.  *    Process System Color Change notification.                *
  1626.  *                                        *
  1627.  ****************************************************************************/
  1628.  
  1629. STATIC MRESULT APIENTRY SysColorChange
  1630. (
  1631.   HWND hwnd,
  1632.   USHORT msg,
  1633.   MPARAM mp1,
  1634.   MPARAM mp2
  1635. )
  1636. {
  1637.  /***************************************************************************
  1638.   * Find the instance data.                            *
  1639.   ***************************************************************************/
  1640.  
  1641.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1642.  
  1643.  /***************************************************************************
  1644.   * If we aren't using custom colors, then query for the new defaults.      *
  1645.   ***************************************************************************/
  1646.  
  1647.   if ( NOT Data->Profile.fBackColor )
  1648.   {
  1649.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1650.   }
  1651.  
  1652.   if ( NOT Data->Profile.fTextColor )
  1653.   {
  1654.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1655.   }
  1656.  
  1657.  /***************************************************************************
  1658.   * Return value must be NULL, according to the documentation.            *
  1659.   ***************************************************************************/
  1660.  
  1661.   return ( MRFROMP ( NULL ) ) ;
  1662. }
  1663.  
  1664. /****************************************************************************
  1665.  *                                        *
  1666.  *    Process Query for Keys Help resource id.                *
  1667.  *                                        *
  1668.  ****************************************************************************/
  1669.  
  1670. STATIC MRESULT APIENTRY QueryKeysHelp
  1671. (
  1672.   HWND hwnd,
  1673.   USHORT msg,
  1674.   MPARAM mp1,
  1675.   MPARAM mp2
  1676. )
  1677. {
  1678.  /***************************************************************************
  1679.   * Simply return the ID of the Keys Help panel.                *
  1680.   ***************************************************************************/
  1681.  
  1682.   return ( (MRESULT) IDM_KEYS_HELP ) ;
  1683. }
  1684.  
  1685. /****************************************************************************
  1686.  *                                        *
  1687.  *    Process Help Manager Error                        *
  1688.  *                                        *
  1689.  ****************************************************************************/
  1690.  
  1691. STATIC MRESULT APIENTRY HelpError
  1692. ( 
  1693.   HWND hwnd, 
  1694.   USHORT msg, 
  1695.   MPARAM mp1, 
  1696.   MPARAM mp2
  1697. )
  1698. {
  1699.  /***************************************************************************
  1700.   * Local Declarations                                *
  1701.   ***************************************************************************/
  1702.  
  1703.   static struct
  1704.   {
  1705.     ULONG Error ;
  1706.     USHORT StringId ;
  1707.   }
  1708.   HelpErrors [] =
  1709.   {
  1710.     { HMERR_NO_FRAME_WND_IN_CHAIN,     IDS_HMERR_NO_FRAME_WND_IN_CHAIN },
  1711.     { HMERR_INVALID_ASSOC_APP_WND,     IDS_HMERR_INVALID_ASSOC_APP_WND },
  1712.     { HMERR_INVALID_ASSOC_HELP_INST,   IDS_HMERR_INVALID_ASSOC_HELP_IN },
  1713.     { HMERR_INVALID_DESTROY_HELP_INST, IDS_HMERR_INVALID_DESTROY_HELP_ },
  1714.     { HMERR_NO_HELP_INST_IN_CHAIN,     IDS_HMERR_NO_HELP_INST_IN_CHAIN },
  1715.     { HMERR_INVALID_HELP_INSTANCE_HDL, IDS_HMERR_INVALID_HELP_INSTANCE },
  1716.     { HMERR_INVALID_QUERY_APP_WND,     IDS_HMERR_INVALID_QUERY_APP_WND },
  1717.     { HMERR_HELP_INST_CALLED_INVALID,  IDS_HMERR_HELP_INST_CALLED_INVA },
  1718.     { HMERR_HELPTABLE_UNDEFINE,        IDS_HMERR_HELPTABLE_UNDEFINE    },
  1719.     { HMERR_HELP_INSTANCE_UNDEFINE,    IDS_HMERR_HELP_INSTANCE_UNDEFIN },
  1720.     { HMERR_HELPITEM_NOT_FOUND,        IDS_HMERR_HELPITEM_NOT_FOUND    },
  1721.     { HMERR_INVALID_HELPSUBITEM_SIZE,  IDS_HMERR_INVALID_HELPSUBITEM_S },
  1722.     { HMERR_HELPSUBITEM_NOT_FOUND,     IDS_HMERR_HELPSUBITEM_NOT_FOUND },
  1723.     { HMERR_INDEX_NOT_FOUND,           IDS_HMERR_INDEX_NOT_FOUND       },
  1724.     { HMERR_CONTENT_NOT_FOUND,           IDS_HMERR_CONTENT_NOT_FOUND     },
  1725.     { HMERR_OPEN_LIB_FILE,           IDS_HMERR_OPEN_LIB_FILE           },
  1726.     { HMERR_READ_LIB_FILE,           IDS_HMERR_READ_LIB_FILE           },
  1727.     { HMERR_CLOSE_LIB_FILE,           IDS_HMERR_CLOSE_LIB_FILE        },
  1728.     { HMERR_INVALID_LIB_FILE,           IDS_HMERR_INVALID_LIB_FILE      },
  1729.     { HMERR_NO_MEMORY,               IDS_HMERR_NO_MEMORY           },
  1730.     { HMERR_ALLOCATE_SEGMENT,           IDS_HMERR_ALLOCATE_SEGMENT      },
  1731.     { HMERR_FREE_MEMORY,           IDS_HMERR_FREE_MEMORY           },
  1732.     { HMERR_PANEL_NOT_FOUND,           IDS_HMERR_PANEL_NOT_FOUND       },
  1733.     { HMERR_DATABASE_NOT_OPEN,           IDS_HMERR_DATABASE_NOT_OPEN     },
  1734.     { 0,                   IDS_HMERR_UNKNOWN           }
  1735.   } ;
  1736.  
  1737.   ULONG ErrorCode = (ULONG) LONGFROMMP ( mp1 ) ;
  1738.  
  1739.  /***************************************************************************
  1740.   * Find the instance data.                            *
  1741.   ***************************************************************************/
  1742.  
  1743.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1744.  
  1745.  /***************************************************************************
  1746.   * Find the error code in the message table.                    *
  1747.   ***************************************************************************/
  1748.  
  1749.   int Index = 0 ;
  1750.   while ( HelpErrors[Index].Error
  1751.     AND ( HelpErrors[Index].Error != ErrorCode ) )
  1752.   {
  1753.     Index ++ ;
  1754.   }
  1755.  
  1756.  /***************************************************************************
  1757.   * Get the message texts.                            *
  1758.   ***************************************************************************/
  1759.  
  1760.   ResourceString Title ( Data->Library, IDS_HMERR ) ;
  1761.  
  1762.   ResourceString Message ( Data->Library, HelpErrors[Index].StringId ) ;
  1763.  
  1764.  /***************************************************************************
  1765.   * Display the error message.                            *
  1766.   ***************************************************************************/
  1767.  
  1768.   WinMessageBox
  1769.   (
  1770.     HWND_DESKTOP,
  1771.     hwnd,
  1772.     Message.Ptr(),
  1773.     Title.Ptr(),
  1774.     0,
  1775.     MB_OK | MB_WARNING
  1776.   ) ;
  1777.  
  1778.  /***************************************************************************
  1779.   * Return zero, indicating that the message was processed.            *
  1780.   ***************************************************************************/
  1781.  
  1782.   return ( MRFROMSHORT ( 0 ) ) ;
  1783. }
  1784.  
  1785. /****************************************************************************
  1786.  *                                        *
  1787.  *    Process "Extended Help Undefined" notification                *
  1788.  *                                        *
  1789.  ****************************************************************************/
  1790.  
  1791. STATIC MRESULT APIENTRY ExtHelpUndefined
  1792. ( 
  1793.   HWND hwnd, 
  1794.   USHORT msg, 
  1795.   MPARAM mp1, 
  1796.   MPARAM mp2
  1797. )
  1798. {
  1799.  /***************************************************************************
  1800.   * Find the instance data.                            *
  1801.   ***************************************************************************/
  1802.  
  1803.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1804.  
  1805.  /***************************************************************************
  1806.   * Get the message texts.                            *
  1807.   ***************************************************************************/
  1808.  
  1809.   ResourceString Title ( Data->Library, IDS_HMERR ) ;
  1810.  
  1811.   ResourceString Message ( Data->Library, IDS_HMERR_EXTHELPUNDEFINED ) ;
  1812.  
  1813.  /***************************************************************************
  1814.   * Display the error message.                            *
  1815.   ***************************************************************************/
  1816.  
  1817.   WinMessageBox
  1818.   (
  1819.     HWND_DESKTOP,
  1820.     hwnd,
  1821.     Message.Ptr(),
  1822.     Title.Ptr(),
  1823.     0,
  1824.     MB_OK | MB_WARNING
  1825.   ) ;
  1826.  
  1827.  /***************************************************************************
  1828.   * Return zero, indicating that the message was processed.            *
  1829.   ***************************************************************************/
  1830.  
  1831.   return ( MRFROMSHORT ( 0 ) ) ;
  1832. }
  1833.  
  1834. /****************************************************************************
  1835.  *                                        *
  1836.  *    Process "Help Subitem Not Found" notification                *
  1837.  *                                        *
  1838.  ****************************************************************************/
  1839.  
  1840. STATIC MRESULT APIENTRY HelpSubitemNotFound
  1841. ( 
  1842.   HWND hwnd, 
  1843.   USHORT msg, 
  1844.   MPARAM mp1, 
  1845.   MPARAM mp2
  1846. )
  1847. {
  1848.  /***************************************************************************
  1849.   * Find the instance data.                            *
  1850.   ***************************************************************************/
  1851.  
  1852.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1853.  
  1854.  /***************************************************************************
  1855.   * Get the title text.                             *
  1856.   ***************************************************************************/
  1857.  
  1858.   ResourceString Title ( Data->Library, IDS_HMERR ) ;
  1859.  
  1860.  /***************************************************************************
  1861.   * Format the error message.                            *
  1862.   ***************************************************************************/
  1863.  
  1864.   USHORT Topic = (USHORT) SHORT1FROMMP ( mp2 ) ;
  1865.   USHORT Subtopic = (USHORT) SHORT2FROMMP ( mp2 ) ;
  1866.  
  1867.   ResourceString Frame     ( Data->Library, IDS_HELPMODE_FRAME ) ;
  1868.   ResourceString Menu     ( Data->Library, IDS_HELPMODE_MENU ) ;
  1869.   ResourceString Window  ( Data->Library, IDS_HELPMODE_WINDOW ) ;
  1870.   ResourceString Unknown ( Data->Library, IDS_HELPMODE_UNKNOWN ) ;
  1871.  
  1872.   PBYTE Mode ;
  1873.   switch ( SHORT1FROMMP ( mp1 ) )
  1874.   {
  1875.     case HLPM_FRAME:
  1876.       Mode = Frame.Ptr() ;
  1877.       break ;
  1878.  
  1879.     case HLPM_MENU:
  1880.       Mode = Menu.Ptr() ;
  1881.       break ;
  1882.  
  1883.     case HLPM_WINDOW:
  1884.       Mode = Window.Ptr() ;
  1885.       break ;
  1886.  
  1887.     default:
  1888.       Mode = Unknown.Ptr() ;
  1889.   }
  1890.  
  1891.   ResourceString Format ( Data->Library, IDS_HELPSUBITEMNOTFOUND ) ;
  1892.  
  1893.   BYTE Message [200] ;
  1894.   sprintf ( (PCHAR)Message, PCHAR(Format.Ptr()), Mode, Topic, Subtopic ) ;
  1895.  
  1896.  /***************************************************************************
  1897.   * Display the error message.                            *
  1898.   ***************************************************************************/
  1899.  
  1900.   WinMessageBox
  1901.   (
  1902.     HWND_DESKTOP,
  1903.     hwnd,
  1904.     Message,
  1905.     Title.Ptr(),
  1906.     0,
  1907.     MB_OK | MB_WARNING
  1908.   ) ;
  1909.  
  1910.  /***************************************************************************
  1911.   * Return zero, indicating that the message was processed.            *
  1912.   ***************************************************************************/
  1913.  
  1914.   return ( MRFROMSHORT ( 0 ) ) ;
  1915. }
  1916.  
  1917. /****************************************************************************
  1918.  *                                        *
  1919.  *    Process Refresh message.                        *
  1920.  *                                        *
  1921.  ****************************************************************************/
  1922.  
  1923. STATIC MRESULT APIENTRY Refresh
  1924. ( 
  1925.   HWND hwnd, 
  1926.   USHORT msg, 
  1927.   MPARAM mp1, 
  1928.   MPARAM mp2
  1929. )
  1930. {
  1931.  /***************************************************************************
  1932.   * Find the instance data.                            *
  1933.   ***************************************************************************/
  1934.  
  1935.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1936.  
  1937.  /***************************************************************************
  1938.   * If we're supposed to float the window, do so here.                      *
  1939.   ***************************************************************************/
  1940.  
  1941.   if ( Data->Profile.Float )
  1942.     WinSetWindowPos ( WinQueryWindow(hwnd,QW_PARENT), HWND_TOP, 0, 0, 0, 0, SWP_ZORDER ) ;
  1943.  
  1944.  /***************************************************************************
  1945.   * Save the idle counter.                            *
  1946.   ***************************************************************************/
  1947.  
  1948.   Data->Profile.IdleCount = LONGFROMMP ( mp1 ) ;
  1949.  
  1950.  /***************************************************************************
  1951.   * Determine if drive mask has changed.                    *
  1952.   ***************************************************************************/
  1953.  
  1954.   ULONG Drive ;
  1955.   ULONG Drives ;
  1956.   DosQueryCurrentDisk ( &Drive, &Drives ) ;
  1957.  
  1958.   if ( Drives != Data->Drives )
  1959.   {
  1960.    /*************************************************************************
  1961.     * It has.  First save the display options.                    *
  1962.     *************************************************************************/
  1963.  
  1964.     SaveApplication ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ;
  1965.  
  1966.    /*************************************************************************
  1967.     * Next, update the drive item list.                     *
  1968.     *************************************************************************/
  1969.  
  1970.     UpdateDriveList ( Data->Anchor, Data->Library, Data->ProfileHandle, 
  1971.       &Data->Profile, Data->Drives, Drives ) ;
  1972.  
  1973.    /*************************************************************************
  1974.     * If the controls are hidden, hide the whole window and reveal the        *
  1975.     *    controls.  Otherwise the menu wouldn't get updated correctly.       *
  1976.     *************************************************************************/
  1977.  
  1978.     if ( Data->Profile.HideControls )
  1979.     {
  1980.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT), FALSE ) ;
  1981.       HideControls
  1982.       (
  1983.     FALSE,
  1984.     WinQueryWindow ( hwnd, QW_PARENT ),
  1985.     Data->hwndSysMenu,
  1986.     Data->hwndTitleBar,
  1987.     Data->hwndMinMax
  1988.       ) ;
  1989.     }
  1990.  
  1991.    /*************************************************************************
  1992.     * If the controls were supposed to be hidden, hide them once more and   *
  1993.     *    show the window to the world again.                    *
  1994.     *************************************************************************/
  1995.  
  1996.     if ( Data->Profile.HideControls )
  1997.     {
  1998.       HideControls
  1999.       (
  2000.     TRUE,
  2001.     WinQueryWindow ( hwnd, QW_PARENT ),
  2002.     Data->hwndSysMenu,
  2003.     Data->hwndTitleBar,
  2004.     Data->hwndMinMax
  2005.       ) ;
  2006.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT), TRUE ) ;
  2007.     }
  2008.  
  2009.    /*************************************************************************
  2010.     * Save the updated drive mask.                        *
  2011.     *************************************************************************/
  2012.  
  2013.     Data->Drives = Drives ;
  2014.  
  2015.    /*************************************************************************
  2016.     * Resize the window to accommodate the new option list.            *
  2017.     *************************************************************************/
  2018.  
  2019.     ResizeWindow ( hwnd, &Data->Profile ) ;
  2020.   }
  2021.  
  2022.  /***************************************************************************
  2023.   * Update the statistics.                            *
  2024.   ***************************************************************************/
  2025.  
  2026.   UpdateWindow ( hwnd, Data, FALSE ) ;
  2027.  
  2028.  /***************************************************************************
  2029.   * Return zero, indicating that the message was processed.            *
  2030.   ***************************************************************************/
  2031.  
  2032.   return ( MRFROMSHORT ( 0 ) ) ;
  2033. }
  2034.  
  2035.  
  2036. /****************************************************************************
  2037.  *                                        *
  2038.  *                 Get Profile Data                    *
  2039.  *                                        *
  2040.  ****************************************************************************/
  2041.  
  2042. STATIC int GetProfile ( HAB Anchor, HMODULE Library, HINI ProfileHandle, PPROFILE Profile )
  2043. {
  2044.  /***************************************************************************
  2045.   * Get the window's current size and position.                             *
  2046.   ***************************************************************************/
  2047.  
  2048.   #pragma pack(2)
  2049.   typedef struct {
  2050.     USHORT Filler ;
  2051.     USHORT fs ;
  2052.     USHORT cy, cx, y, x ;
  2053.     HWND hwndInsertBehind ;
  2054.     HWND hwnd ;
  2055.   } OLDSWP ;
  2056.   #pragma pack()
  2057.  
  2058.   ULONG Size ;
  2059.   memset ( &Profile->Position, 0, sizeof(Profile->Position) ) ;
  2060.   Profile->fPosition = FALSE ;
  2061.   if ( PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &Size ) )
  2062.   {
  2063.     if ( Size == sizeof(OLDSWP)-sizeof(USHORT) )
  2064.     {
  2065.       OLDSWP OldPosition ;
  2066.       if ( PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &OldPosition.fs, &Size ) )
  2067.       {
  2068.         Profile->Position.fl = OldPosition.fs ;
  2069.         Profile->Position.cy = OldPosition.cy ;
  2070.         Profile->Position.cx = OldPosition.cx ;
  2071.         Profile->Position.y = OldPosition.y ;
  2072.         Profile->Position.x = OldPosition.x ;
  2073.         Profile->Position.hwndInsertBehind = OldPosition.hwndInsertBehind ;
  2074.         Profile->Position.hwnd = OldPosition.hwnd ;
  2075.         Profile->fPosition = TRUE ;
  2076.       }
  2077.     }
  2078.     else if ( Size == sizeof(Profile->Position) )
  2079.     {
  2080.       if ( PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &Profile->Position, &Size ) )
  2081.       {
  2082.         Profile->fPosition = TRUE ;
  2083.       }
  2084.     }
  2085.   }
  2086.  
  2087.   if ( NOT Profile->fPosition )
  2088.   {
  2089.     if ( ProfileHandle == HINI_USERPROFILE )
  2090.     {
  2091.       return ( 1 ) ;
  2092.     }
  2093.   }
  2094.  
  2095.  /***************************************************************************
  2096.   * Get the program options.                            *
  2097.   ***************************************************************************/
  2098.  
  2099.   Profile->HideControls = FALSE ;
  2100.   Profile->fHideControls = FALSE ;
  2101.   if 
  2102.   ( 
  2103.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"HideControls", &Size )
  2104.     AND
  2105.     ( ( Size == sizeof(Profile->HideControls) ) OR ( Size == sizeof(short) ) )
  2106.     AND
  2107.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"HideControls", &Profile->HideControls, &Size )
  2108.   )
  2109.   {
  2110.     Profile->fHideControls = TRUE ;
  2111.   }
  2112.  
  2113.   Profile->Float = FALSE ;
  2114.   Profile->fFloat = FALSE ;
  2115.   if 
  2116.   ( 
  2117.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Float", &Size )
  2118.     AND
  2119.     ( ( Size == sizeof(Profile->Float) ) OR ( Size == sizeof(short) ) )
  2120.     AND
  2121.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Float", &Profile->Float, &Size )
  2122.   )
  2123.   {
  2124.     Profile->fFloat = TRUE ;
  2125.   }
  2126.  
  2127.   Profile->TimerInterval = 1000 ;
  2128.   Profile->fTimerInterval = FALSE ;
  2129.   if 
  2130.   ( 
  2131.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"TimerInterval", &Size )
  2132.     AND
  2133.     ( ( Size == sizeof(Profile->TimerInterval) ) OR ( Size == sizeof(short) ) )
  2134.     AND
  2135.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"TimerInterval", &Profile->TimerInterval, &Size ) 
  2136.   )
  2137.   {
  2138.     Profile->fTimerInterval = TRUE ;
  2139.   }
  2140.  
  2141.  /***************************************************************************
  2142.   * Get the presentation parameters.                        *
  2143.   ***************************************************************************/
  2144.  
  2145.   strcpy ( (PCHAR)Profile->FontNameSize, "" ) ;
  2146.   Profile->fFontNameSize = FALSE ;
  2147.   if
  2148.   (
  2149.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", &Size )
  2150.     AND
  2151.     ( Size == sizeof(Profile->FontNameSize) )
  2152.     AND
  2153.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", &Profile->FontNameSize, &Size )
  2154.   )
  2155.   {
  2156.     Profile->fFontNameSize = TRUE ;
  2157.   }
  2158.  
  2159.   Profile->BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  2160.   Profile->fBackColor = FALSE ;
  2161.   if
  2162.   (
  2163.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", &Size )
  2164.     AND
  2165.     ( Size == sizeof(Profile->BackColor) )
  2166.     AND
  2167.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", &Profile->BackColor, &Size )
  2168.   )
  2169.   {
  2170.     Profile->fBackColor = TRUE ;
  2171.   }
  2172.  
  2173.   Profile->TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  2174.   Profile->fTextColor = FALSE ;
  2175.   if
  2176.   (
  2177.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", &Size )
  2178.     AND
  2179.     ( Size == sizeof(Profile->TextColor) )
  2180.     AND
  2181.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", &Profile->TextColor, &Size )
  2182.   )
  2183.   {
  2184.     Profile->fTextColor = TRUE ;
  2185.   }
  2186.  
  2187.  /***************************************************************************
  2188.   * Build the fixed portion of the item list.                    *
  2189.   ***************************************************************************/
  2190.  
  2191.   ResourceString ClockLabel ( Library, IDS_SHOW_CLOCK_LABEL ) ;
  2192.   ResourceString ClockOption ( Library, IDS_SHOW_CLOCK_OPTION ) ;
  2193.   Profile->Items[ITEM_CLOCK] = new Clock ( ITEM_CLOCK,
  2194.     PSZ("ShowClock"), ClockLabel.Ptr(), ClockOption.Ptr(),
  2195.     Profile->CountryInfo, Profile->DaysOfWeek ) ;
  2196.  
  2197.   ResourceString ElapsedLabel ( Library, IDS_SHOW_ELAPSED_LABEL ) ;
  2198.   ResourceString ElapsedOption ( Library, IDS_SHOW_ELAPSED_OPTION ) ;
  2199.   Profile->Items[ITEM_ELAPSEDTIME] = new ElapsedTime ( ITEM_ELAPSEDTIME,
  2200.     PSZ("ShowElapsed"), ElapsedLabel.Ptr(), ElapsedOption.Ptr(),
  2201.     Profile->CountryInfo,
  2202.     Profile->Day,
  2203.     Profile->Days ) ;
  2204.  
  2205.   ResourceString SwapSizeLabel ( Library, IDS_SHOW_SWAPSIZE_LABEL ) ;
  2206.   ResourceString SwapSizeOption ( Library, IDS_SHOW_SWAPSIZE_OPTION ) ;
  2207.   Profile->Items[ITEM_SWAPFILESIZE] = new SwapSize ( ITEM_SWAPFILESIZE,
  2208.     PSZ("ShowSwapsize"), SwapSizeLabel.Ptr(), SwapSizeOption.Ptr(),
  2209.     Profile->CountryInfo,
  2210.     Profile->SwapPath ) ;
  2211.  
  2212.   ResourceString SwapFreeLabel ( Library, IDS_SHOW_SWAPFREE_LABEL ) ;
  2213.   ResourceString SwapFreeOption ( Library, IDS_SHOW_SWAPFREE_OPTION ) ;
  2214.   Profile->Items[ITEM_SWAPDISKFREE] = new SwapFree ( ITEM_SWAPDISKFREE,
  2215.     PSZ("ShowSwapfree"), SwapFreeLabel.Ptr(), SwapFreeOption.Ptr(),
  2216.     Profile->CountryInfo,
  2217.     Profile->SwapPath,
  2218.     Profile->MinFree ) ;
  2219.  
  2220.   ResourceString MemoryLabel ( Library, IDS_SHOW_MEMORY_LABEL ) ;
  2221.   ResourceString MemoryOption ( Library, IDS_SHOW_MEMORY_OPTION ) ;
  2222.   Profile->Items[ITEM_MEMORYFREE] = new MemoryFree ( ITEM_MEMORYFREE,
  2223.     PSZ("ShowMemory"), MemoryLabel.Ptr(), MemoryOption.Ptr(),
  2224.     Profile->CountryInfo,
  2225.     (SwapFree*)Profile->Items[ITEM_SWAPDISKFREE] ) ;
  2226.  
  2227.   ResourceString SpoolSizeLabel ( Library, IDS_SHOW_SPOOLSIZE_LABEL ) ;
  2228.   ResourceString SpoolSizeOption ( Library, IDS_SHOW_SPOOLSIZE_OPTION ) ;
  2229.   Profile->Items[ITEM_SPOOLFILESIZE] = new SpoolSize ( ITEM_SPOOLFILESIZE,
  2230.     PSZ("ShowSpoolSize"), SpoolSizeLabel.Ptr(), SpoolSizeOption.Ptr(),
  2231.     Profile->CountryInfo,
  2232.     Profile->SpoolPath ) ;
  2233.  
  2234.   ResourceString CpuLoadLabel ( Library, IDS_SHOW_CPULOAD_LABEL ) ;
  2235.   ResourceString CpuLoadOption ( Library, IDS_SHOW_CPULOAD_OPTION ) ;
  2236.   Profile->Items[ITEM_CPULOAD] = new CpuLoad ( ITEM_CPULOAD,
  2237.     PSZ("ShowCpuLoad"), CpuLoadLabel.Ptr(), CpuLoadOption.Ptr(),
  2238.     Profile->MaxCount,
  2239.     &Profile->IdleCount ) ;
  2240.  
  2241.   ResourceString TaskCountLabel ( Library, IDS_SHOW_TASKCOUNT_LABEL ) ;
  2242.   ResourceString TaskCountOption ( Library, IDS_SHOW_TASKCOUNT_OPTION ) ;
  2243.   Profile->Items[ITEM_TASKCOUNT] = new TaskCount ( ITEM_TASKCOUNT,
  2244.     PSZ("ShowTaskCount"), TaskCountLabel.Ptr(), TaskCountOption.Ptr(),
  2245.     Anchor ) ;
  2246.  
  2247.   ResourceString TotalFreeLabel ( Library, IDS_SHOW_TOTALFREE_LABEL ) ;
  2248.   ResourceString TotalFreeOption ( Library, IDS_SHOW_TOTALFREE_OPTION ) ;
  2249.   Profile->Items[ITEM_TOTALFREE] = new TotalFree ( ITEM_TOTALFREE,
  2250.     PSZ("ShowTotalFree"), TotalFreeLabel.Ptr(), TotalFreeOption.Ptr(),
  2251.     Profile->CountryInfo, 0 ) ;
  2252.  
  2253.   for ( int i=0; i<ITEM_BASE_COUNT; i++ )
  2254.   {
  2255.     BOOL Flag = TRUE ;
  2256.     if 
  2257.     ( 
  2258.       PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, Profile->Items[i]->QueryName(), &Size )
  2259.       AND
  2260.       ( ( Size == sizeof(Flag) ) OR ( Size == sizeof(short) ) )
  2261.       AND 
  2262.       PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, Profile->Items[i]->QueryName(), &Flag, &Size )
  2263.     )
  2264.     {
  2265.       ;
  2266.     }
  2267.  
  2268.     if ( Flag )
  2269.       Profile->Items[i]->SetFlag() ;
  2270.     else
  2271.       Profile->Items[i]->ResetFlag() ;
  2272.   }
  2273.  
  2274.  /***************************************************************************
  2275.   * Add items for each drive on the system.                    *
  2276.   ***************************************************************************/
  2277.  
  2278.   ULONG Drive, Drives ;
  2279.   DosQueryCurrentDisk ( &Drive, &Drives ) ;
  2280.   UpdateDriveList ( Anchor, Library, ProfileHandle, Profile, 0, Drives ) ;
  2281.  
  2282.   return ( 0 ) ;
  2283. }
  2284.  
  2285. /****************************************************************************
  2286.  *                                        *
  2287.  *                 Put Profile Data                    *
  2288.  *                                        *
  2289.  ****************************************************************************/
  2290.  
  2291. STATIC void PutProfile ( HINI ProfileHandle, PPROFILE Profile )
  2292. {
  2293.  /***************************************************************************
  2294.   * Save the window's current size and position.                            *
  2295.   ***************************************************************************/
  2296.  
  2297.   PrfWriteProfileData
  2298.   (
  2299.     ProfileHandle,
  2300.     (PSZ)PROGRAM_NAME,
  2301.     (PSZ)"Position",
  2302.     &Profile->Position,
  2303.     sizeof(Profile->Position)
  2304.   ) ;
  2305.  
  2306.  /***************************************************************************
  2307.   * Save the program options.                            *
  2308.   ***************************************************************************/
  2309.  
  2310.   if ( Profile->fHideControls )
  2311.   {
  2312.     PrfWriteProfileData
  2313.     (
  2314.       ProfileHandle,
  2315.       (PSZ)PROGRAM_NAME,
  2316.       (PSZ)"HideControls",
  2317.       &Profile->HideControls,
  2318.       sizeof(Profile->HideControls)
  2319.     ) ;
  2320.   }
  2321.  
  2322.   if ( Profile->fFloat )
  2323.   {
  2324.     PrfWriteProfileData
  2325.     (
  2326.       ProfileHandle,
  2327.       (PSZ)PROGRAM_NAME,
  2328.       (PSZ)"Float",
  2329.       &Profile->Float,
  2330.       sizeof(Profile->Float)
  2331.     ) ;
  2332.   }
  2333.  
  2334.   if ( Profile->fTimerInterval )
  2335.   {
  2336.     PrfWriteProfileData
  2337.     (
  2338.       ProfileHandle,
  2339.       (PSZ)PROGRAM_NAME,
  2340.       (PSZ)"TimerInterval",
  2341.       &Profile->TimerInterval,
  2342.       sizeof(Profile->TimerInterval)
  2343.     ) ;
  2344.   }
  2345.  
  2346.  /***************************************************************************
  2347.   * Save the item options.                            *
  2348.   ***************************************************************************/
  2349.  
  2350.   for ( int i=0; i<Profile->ItemCount; i++ )
  2351.   {
  2352.     Item *pItem = Profile->Items [i] ;
  2353.     BOOL Flag = pItem->QueryFlag() ;
  2354.  
  2355.     PrfWriteProfileData
  2356.     (
  2357.       ProfileHandle,
  2358.       PSZ(PROGRAM_NAME),
  2359.       pItem->QueryName(),
  2360.       &Flag,
  2361.       sizeof(Flag)
  2362.     ) ;
  2363.   }
  2364.  
  2365.  /***************************************************************************
  2366.   * Save the presentation parameters.                        *
  2367.   ***************************************************************************/
  2368.  
  2369.   if ( Profile->fFontNameSize )
  2370.   {
  2371.     PrfWriteProfileData
  2372.     (
  2373.       ProfileHandle,
  2374.       (PSZ)PROGRAM_NAME,
  2375.       (PSZ)"FontNameSize",
  2376.       Profile->FontNameSize,
  2377.       sizeof(Profile->FontNameSize)
  2378.     ) ;
  2379.   }
  2380.  
  2381.   if ( Profile->fBackColor )
  2382.   {
  2383.     PrfWriteProfileData
  2384.     (
  2385.       ProfileHandle,
  2386.       (PSZ)PROGRAM_NAME,
  2387.       (PSZ)"BackgroundColor",
  2388.       &Profile->BackColor,
  2389.       sizeof(Profile->BackColor)
  2390.     ) ;
  2391.   }
  2392.  
  2393.   if ( Profile->fTextColor )
  2394.   {
  2395.     PrfWriteProfileData
  2396.     (
  2397.       ProfileHandle,
  2398.       (PSZ)PROGRAM_NAME,
  2399.       (PSZ)"ForegroundColor",
  2400.       &Profile->TextColor,
  2401.       sizeof(Profile->TextColor)
  2402.     ) ;
  2403.   }
  2404. }
  2405.  
  2406. /****************************************************************************
  2407.  *                                        *
  2408.  *    Scan CONFIG.SYS for a keyword.    Return the value.            *
  2409.  *                                        *
  2410.  ****************************************************************************/
  2411.  
  2412. STATIC PSZ ScanSystemConfig ( HAB Anchor, PSZ Keyword )
  2413. {
  2414.  /***************************************************************************
  2415.   * Get the boot drive number from the global information segment.        *
  2416.   ***************************************************************************/
  2417.  
  2418.   ULONG BootDrive ;
  2419.   DosQuerySysInfo ( QSV_BOOT_DRIVE, QSV_BOOT_DRIVE, &BootDrive, sizeof(BootDrive) ) ;
  2420.  
  2421.  /***************************************************************************
  2422.   * Convert the keyword to upper case.                                      *
  2423.   ***************************************************************************/
  2424.  
  2425.   WinUpper ( Anchor, NULL, NULL, Keyword ) ;
  2426.  
  2427.  /***************************************************************************
  2428.   * Build the CONFIG.SYS path.                            *
  2429.   ***************************************************************************/
  2430.  
  2431.   char Path [_MAX_PATH] ;
  2432.   Path[0] = (char) ( BootDrive + 'A' - 1 ) ;
  2433.   Path[1] = 0 ;
  2434.   strcat ( Path, ":\\CONFIG.SYS" ) ;
  2435.  
  2436.  /***************************************************************************
  2437.   * Open CONFIG.SYS for reading.                        *
  2438.   ***************************************************************************/
  2439.  
  2440.   FILE *File = fopen ( Path, "r" ) ;
  2441.   if ( NOT File )
  2442.   {
  2443.     return ( NULL ) ;
  2444.   }
  2445.  
  2446.  /***************************************************************************
  2447.   * While there're more lines in CONFIG.SYS, read a line and check it.      *
  2448.   ***************************************************************************/
  2449.  
  2450.   static char Buffer [500] ;
  2451.   while ( fgets ( Buffer, sizeof(Buffer), File ) )
  2452.   {
  2453.  
  2454.    /*************************************************************************
  2455.     * Clean any trailing newline character from the input string.        *
  2456.     *************************************************************************/
  2457.  
  2458.     if ( Buffer[strlen(Buffer)-1] == '\n' )
  2459.     {
  2460.       Buffer[strlen(Buffer)-1] = 0 ;
  2461.     }
  2462.  
  2463.    /*************************************************************************
  2464.     * If keyword starts the line, we've found the line we want.  Close      *
  2465.     *    the file and return a pointer to the parameter text.            *
  2466.     *************************************************************************/
  2467.  
  2468.     WinUpper ( Anchor, NULL, NULL, (PSZ)Buffer ) ;
  2469.  
  2470.     if ( NOT strncmp ( Buffer, (PCHAR)Keyword, strlen((PCHAR)Keyword) )
  2471.       AND ( Buffer[strlen((PCHAR)Keyword)] == '=' ) )
  2472.     {
  2473.       fclose ( File ) ;
  2474.       return ( (PSZ) ( Buffer + strlen((PCHAR)Keyword) + 1 ) ) ;
  2475.     }
  2476.   }
  2477.  
  2478.  /***************************************************************************
  2479.   * Close the file.  We haven't found the line we wanted.                   *
  2480.   ***************************************************************************/
  2481.  
  2482.   fclose ( File ) ;
  2483.  
  2484.   return ( NULL ) ;
  2485. }
  2486.  
  2487. /****************************************************************************
  2488.  *                                        *
  2489.  *             Resize Client Window                    *
  2490.  *                                        *
  2491.  ****************************************************************************/
  2492.  
  2493. STATIC void ResizeWindow ( HWND hwnd, PPROFILE Profile )
  2494. {
  2495.  /***************************************************************************
  2496.   * If the window is visible and minimized, restore it invisibly.        *
  2497.   ***************************************************************************/
  2498.  
  2499.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  2500.  
  2501.   SHORT fHadToHide = FALSE ;
  2502.   SHORT fHadToRestore = FALSE ;
  2503.   if ( Profile->Position.fl & SWP_MINIMIZE )
  2504.   {
  2505.     if ( WinIsWindowVisible ( hwndFrame ) )
  2506.     {
  2507.       WinShowWindow ( hwndFrame, FALSE ) ;
  2508.       fHadToHide = TRUE ;
  2509.     }
  2510.     WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE ) ;
  2511.     fHadToRestore = TRUE ;
  2512.   }
  2513.  
  2514.  /***************************************************************************
  2515.   * Determine how many items are to be displayed.                *
  2516.   ***************************************************************************/
  2517.  
  2518.   HPS hPS = WinGetPS ( hwnd ) ;
  2519.  
  2520.   int Count = 0 ;
  2521.   LONG Widest = 0 ;
  2522.   LONG Height = 0 ;
  2523.  
  2524.   for ( int i=0; i<Profile->ItemCount; i++ )
  2525.   {
  2526.     Item *pItem = Profile->Items [i] ;
  2527.  
  2528.     if ( pItem->QueryFlag() )
  2529.     {
  2530.       Count ++ ;
  2531.  
  2532.       BYTE Text [100] ;
  2533.       sprintf ( (PCHAR)Text, "%s 1,234,567K", pItem->QueryLabel() ) ;
  2534.  
  2535.       RECTL Rectangle ;
  2536.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  2537.  
  2538.       WinDrawText ( hPS, strlen((PCHAR)Text), Text,
  2539.     &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  2540.  
  2541.       Widest = max ( Widest, (Rectangle.xRight-Rectangle.xLeft+1) ) ;
  2542.  
  2543.       Height += Rectangle.yTop - Rectangle.yBottom ;
  2544.     }
  2545.   }
  2546.  
  2547.   WinReleasePS ( hPS ) ;
  2548.  
  2549.  /***************************************************************************
  2550.   * Get the window's current size & position.                               *
  2551.   ***************************************************************************/
  2552.  
  2553.   RECTL Rectangle ;
  2554.   WinQueryWindowRect ( hwndFrame, &Rectangle ) ;
  2555.  
  2556.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2557.  
  2558.  /***************************************************************************
  2559.   * Adjust the window's width & height.                                     *
  2560.   ***************************************************************************/
  2561.  
  2562.   Rectangle.xRight  = Rectangle.xLeft + Widest ;
  2563.  
  2564.   Rectangle.yTop    = Rectangle.yBottom + Height ;
  2565.  
  2566.  /***************************************************************************
  2567.   * Compute new frame size and apply it.                    *
  2568.   ***************************************************************************/
  2569.  
  2570.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2571.  
  2572.   WinSetWindowPos ( hwndFrame, NULL, 0, 0,
  2573.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2574.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2575.     SWP_SIZE ) ;
  2576.  
  2577.  /***************************************************************************
  2578.   * Return the window to its original state.                    *
  2579.   ***************************************************************************/
  2580.  
  2581.   if ( fHadToRestore )
  2582.   {
  2583.     WinSetWindowPos ( hwndFrame, NULL,
  2584.       Profile->Position.x, Profile->Position.y,
  2585.       Profile->Position.cx, Profile->Position.cy,
  2586.       SWP_MOVE | SWP_SIZE | SWP_MINIMIZE ) ;
  2587.   }
  2588.  
  2589.   if ( fHadToHide )
  2590.   {
  2591.     WinShowWindow ( hwndFrame, TRUE ) ;
  2592.   }
  2593.  
  2594.  /***************************************************************************
  2595.   * Invalidate the window so that it gets repainted.                *
  2596.   ***************************************************************************/
  2597.  
  2598.   WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  2599. }
  2600.  
  2601. /****************************************************************************
  2602.  *                                        *
  2603.  *            Hide Window Controls                    *
  2604.  *                                        *
  2605.  ****************************************************************************/
  2606.  
  2607. STATIC void HideControls
  2608. (
  2609.   BOOL fHide,
  2610.   HWND hwndFrame,
  2611.   HWND hwndSysMenu,
  2612.   HWND hwndTitleBar,
  2613.   HWND hwndMinMax
  2614. )
  2615. {
  2616.  /***************************************************************************
  2617.   * Get original window position and state.                    *
  2618.   ***************************************************************************/
  2619.  
  2620.   SWP OldPosition ;
  2621.   WinQueryWindowPos ( hwndFrame, &OldPosition ) ;
  2622.  
  2623.   BOOL WasVisible = WinIsWindowVisible ( hwndFrame ) ;
  2624.  
  2625.  /***************************************************************************
  2626.   * Restore and hide the window.                        *
  2627.   ***************************************************************************/
  2628.  
  2629.   WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE | SWP_HIDE ) ;
  2630.  
  2631.  /***************************************************************************
  2632.   * Determine client window and location.                    *
  2633.   ***************************************************************************/
  2634.  
  2635.   SWP Position ;
  2636.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  2637.  
  2638.   RECTL Rectangle ;
  2639.   Rectangle.xLeft   = Position.x ;
  2640.   Rectangle.xRight  = Position.x + Position.cx ;
  2641.   Rectangle.yBottom = Position.y ;
  2642.   Rectangle.yTop    = Position.y + Position.cy ;
  2643.  
  2644.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2645.  
  2646.  /***************************************************************************
  2647.   * Hide or reveal the controls windows by changing their parentage.        *
  2648.   ***************************************************************************/
  2649.  
  2650.   if ( fHide )
  2651.   {
  2652.     WinSetParent ( hwndSysMenu,  HWND_OBJECT, FALSE ) ;
  2653.     WinSetParent ( hwndTitleBar, HWND_OBJECT, FALSE ) ;
  2654.     WinSetParent ( hwndMinMax,     HWND_OBJECT, FALSE ) ;
  2655.   }
  2656.   else
  2657.   {
  2658.     WinSetParent ( hwndSysMenu,  hwndFrame, TRUE ) ;
  2659.     WinSetParent ( hwndTitleBar, hwndFrame, TRUE ) ;
  2660.     WinSetParent ( hwndMinMax,     hwndFrame, TRUE ) ;
  2661.   }
  2662.  
  2663.  /***************************************************************************
  2664.   * Tell the frame that things have changed.  Let it update the window.     *
  2665.   ***************************************************************************/
  2666.  
  2667.   WinSendMsg ( hwndFrame, WM_UPDATEFRAME,
  2668.     MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  2669.  
  2670.  /***************************************************************************
  2671.   * Reposition the frame around the client window, which is left be.        *
  2672.   ***************************************************************************/
  2673.  
  2674.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2675.  
  2676.   WinSetWindowPos ( hwndFrame, NULL,
  2677.     (SHORT) Rectangle.xLeft,  (SHORT) Rectangle.yBottom,
  2678.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2679.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2680.     SWP_SIZE | SWP_MOVE ) ;
  2681.  
  2682.  /***************************************************************************
  2683.   * If window was maximized, put it back that way.                *
  2684.   ***************************************************************************/
  2685.  
  2686.   if ( OldPosition.fl & SWP_MAXIMIZE )
  2687.   {
  2688.     WinSetWindowPos ( hwndFrame, NULL,
  2689.       (SHORT) Rectangle.xLeft,    (SHORT) Rectangle.yBottom,
  2690.       (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2691.       (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2692.       SWP_SIZE | SWP_MOVE |
  2693.       ( OldPosition.fl & SWP_MAXIMIZE ) ) ;
  2694.   }
  2695.  
  2696.  /***************************************************************************
  2697.   * If the window was visible in the first place, show it.            *
  2698.   ***************************************************************************/
  2699.  
  2700.   if ( WasVisible )
  2701.   {
  2702.     WinShowWindow ( hwndFrame, TRUE ) ;
  2703.   }
  2704. }
  2705.  
  2706. /****************************************************************************
  2707.  *                                        *
  2708.  *    Update Window                                *
  2709.  *                                        *
  2710.  ****************************************************************************/
  2711.  
  2712. STATIC void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All )
  2713. {
  2714.  /***************************************************************************
  2715.   * Determine how many items are to be displayed.                *
  2716.   ***************************************************************************/
  2717.  
  2718.   int Count = 0 ;
  2719.   for ( int i=0; i<Data->Profile.ItemCount; i++ )
  2720.   {
  2721.     if ( Data->Profile.Items[i]->QueryFlag() )
  2722.     {
  2723.       Count ++ ;
  2724.     }
  2725.   }
  2726.  
  2727.  /***************************************************************************
  2728.   * Get presentation space and make it use RGB colors.                *
  2729.   ***************************************************************************/
  2730.  
  2731.   HPS hPS = WinGetPS ( hwnd ) ;
  2732.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  2733.  
  2734.  /***************************************************************************
  2735.   * Get the window's size and determine the initial position.               *
  2736.   ***************************************************************************/
  2737.  
  2738.   RECTL Rectangle ;
  2739.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2740.  
  2741.   Rectangle.xLeft += Data->Width / 2 ;
  2742.   Rectangle.xRight -= Data->Width / 2 ;
  2743.  
  2744.   Rectangle.yBottom = Data->Height * ( Count - 1 ) ;
  2745.   Rectangle.yTop = Rectangle.yBottom + Data->Height ;
  2746.  
  2747.  /***************************************************************************
  2748.   * Review all items.  Display those changed, or all.                *
  2749.   ***************************************************************************/
  2750.  
  2751.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2752.   {
  2753.     ULONG NewValue ;
  2754.  
  2755.     Item *pItem = Data->Profile.Items [i] ;
  2756.  
  2757.     if ( pItem->QueryFlag() )
  2758.     {
  2759.       pItem->Repaint ( hPS, Rectangle,
  2760.     Data->Profile.TextColor, Data->Profile.BackColor, All ) ;
  2761.  
  2762.       Rectangle.yBottom -= Data->Height ;
  2763.       Rectangle.yTop    -= Data->Height ;
  2764.     }
  2765.   }
  2766.  
  2767.  /***************************************************************************
  2768.   * Release the presentation space and return.                    *
  2769.   ***************************************************************************/
  2770.  
  2771.   WinReleasePS ( hPS ) ;
  2772. }
  2773.  
  2774.  
  2775. /****************************************************************************
  2776.  *                                        *
  2777.  *    Monitor Loop Thread                            *
  2778.  *                                        *
  2779.  ****************************************************************************/
  2780.  
  2781. STATIC VOID MonitorLoopThread ( ULONG Parameter )
  2782. {
  2783.  /***************************************************************************
  2784.   * Get the thread parameter.                                               *
  2785.   ***************************************************************************/
  2786.  
  2787.   PMONITOR_PARMS Parms = PMONITOR_PARMS ( Parameter ) ;
  2788.  
  2789.  /***************************************************************************
  2790.   * Set this thread's priority as high as it can go.                        *
  2791.   ***************************************************************************/
  2792.  
  2793.   DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  2794.  
  2795.  /***************************************************************************
  2796.   * Start up the high resolution timer, if it is available.            *
  2797.   ***************************************************************************/
  2798.  
  2799.   BOOL HiResTimer = OpenTimer ( ) ;
  2800.  
  2801.  /***************************************************************************
  2802.   * Loop forever . . .                                *
  2803.   ***************************************************************************/
  2804.  
  2805.   while ( 1 )
  2806.   {
  2807.  
  2808.    /*************************************************************************
  2809.     * Reset the last time and count seen.                    *
  2810.     *************************************************************************/
  2811.  
  2812.     ULONG LastMilliseconds ;
  2813.     TIMESTAMP Time [2] ;
  2814.  
  2815.     if ( HiResTimer )
  2816.       GetTime ( &Time[0] ) ;
  2817.     else
  2818.       DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &LastMilliseconds, sizeof(LastMilliseconds) ) ;
  2819.  
  2820.     ULONG LastCounter = *Parms->Counter ;
  2821.  
  2822.    /*************************************************************************
  2823.     * Sleep for a bit.                                *
  2824.     *************************************************************************/
  2825.  
  2826.     DosSleep ( *Parms->Interval ) ;
  2827.  
  2828.    /*************************************************************************
  2829.     * Find out how much time and counts went by.                *
  2830.     *************************************************************************/
  2831.  
  2832.     ULONG CurrentCounter = *Parms->Counter ;
  2833.  
  2834.     ULONG DeltaMilliseconds ;
  2835.  
  2836.     if ( HiResTimer )
  2837.     {
  2838.       GetTime ( &Time[1] ) ;
  2839.  
  2840.       ULONG Nanoseconds ;
  2841.       DeltaMilliseconds = ComputeElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  2842.  
  2843.       if ( Nanoseconds >= 500000L )
  2844.     DeltaMilliseconds ++ ;
  2845.     }
  2846.     else
  2847.     {
  2848.       ULONG Milliseconds ;
  2849.       DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &Milliseconds, sizeof(Milliseconds) ) ;
  2850.       DeltaMilliseconds = Milliseconds - LastMilliseconds ;
  2851.     }
  2852.  
  2853.    /*************************************************************************
  2854.     * Find out how much idle time was counted.    Adjust it to persecond.     *
  2855.     *************************************************************************/
  2856.  
  2857.     ULONG Counter = (ULONG) ( ( (double)(CurrentCounter-LastCounter) * 1000L ) / (double)DeltaMilliseconds ) ;
  2858.  
  2859.    /*************************************************************************
  2860.     * Tell the owner window to refresh its statistics.                *
  2861.     *************************************************************************/
  2862.  
  2863.     WinPostMsg ( Parms->Owner, WM_REFRESH, MPFROMLONG(Counter), 0L ) ;
  2864.   }
  2865. }
  2866.  
  2867. /****************************************************************************
  2868.  *                                        *
  2869.  *    Update the Item List to reflect changes in the available drives.    *
  2870.  *                                        *
  2871.  ****************************************************************************/
  2872.  
  2873. STATIC VOID UpdateDriveList
  2874. (
  2875.   HAB Anchor,
  2876.   HMODULE Library,
  2877.   HINI ProfileHandle,
  2878.   PPROFILE Profile,
  2879.   ULONG OldDrives,
  2880.   ULONG NewDrives
  2881. )
  2882. {
  2883.  /***************************************************************************
  2884.   * Get format strings.                             *
  2885.   ***************************************************************************/
  2886.  
  2887.   ResourceString LabelFormat ( Library, IDS_SHOW_DRIVE_FREE_LABEL ) ;
  2888.   ResourceString OptionFormat ( Library, IDS_SHOW_DRIVE_FREE_OPTION ) ;
  2889.  
  2890.  /***************************************************************************
  2891.   * Save the old item list for comparison.                    *
  2892.   ***************************************************************************/
  2893.  
  2894.   Item *OldItems [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  2895.  
  2896.   memset ( OldItems, 0, sizeof(OldItems) ) ;
  2897.  
  2898.   USHORT OldCount = 0 ;
  2899.   if ( OldDrives )
  2900.   {
  2901.     OldCount = Profile->ItemCount ;
  2902.     memcpy ( OldItems, Profile->Items, sizeof(OldItems) ) ;
  2903.   }
  2904.  
  2905.  /***************************************************************************
  2906.   * Add items for each drive on the system.                    *
  2907.   ***************************************************************************/
  2908.  
  2909.   USHORT Count = ITEM_BASE_COUNT ;
  2910.   USHORT OldIndex = ITEM_BASE_COUNT ;
  2911.  
  2912.   ULONG Drives = 0 ;
  2913.   NewDrives >>= 2 ;
  2914.   OldDrives >>= 2 ;
  2915.  
  2916.   for ( int Drive=3; Drive<=MAX_DRIVES; Drive++ )
  2917.   {
  2918.     while ( ( OldIndex < OldCount )
  2919.       AND ( (SHORT)OldItems[OldIndex]->QueryId() < ITEM_BASE_COUNT + Drive ) )
  2920.     {
  2921.       OldIndex ++ ;
  2922.     }
  2923.  
  2924.     if ( NewDrives & 1 )
  2925.     {
  2926.       if ( OldDrives & 1 )
  2927.       {
  2928.     Drives |= ( 1 << (Drive-1) ) ;
  2929.     if ( ( OldIndex < OldCount )
  2930.       AND ( (SHORT)OldItems[OldIndex]->QueryId() == ITEM_BASE_COUNT + Drive ) )
  2931.     {
  2932.       Profile->Items[Count++] = OldItems[OldIndex++] ;
  2933.     }
  2934.       }
  2935.       else
  2936.       {
  2937.         BYTE FileSystem [80] ;
  2938.     if ( CheckDrive ( Drive, FileSystem ) )
  2939.     {
  2940.       Drives |= ( 1 << (Drive-1) ) ;
  2941.  
  2942.       BYTE Name [80] ;
  2943.       sprintf ( PCHAR(Name),   "ShowDrive%c:", Drive+'A'-1 ) ;
  2944.  
  2945.       BYTE Label [80] ;
  2946.       sprintf ( PCHAR(Label),  (PCHAR)LabelFormat.Ptr(),  Drive+'A'-1, FileSystem ) ;
  2947.  
  2948.       BYTE Option [80] ;
  2949.       sprintf ( PCHAR(Option), (PCHAR)OptionFormat.Ptr(), Drive+'A'-1 ) ;
  2950.  
  2951.       Profile->Items[Count++] = new DriveFree ( ITEM_BASE_COUNT+Drive,
  2952.         Name, Label, Option, Profile->CountryInfo,
  2953.         Drive, Profile->DriveError ) ;
  2954.     }
  2955.       }
  2956.     }
  2957.     else
  2958.     {
  2959.       if ( OldDrives & 1 )
  2960.       {
  2961.     delete OldItems[OldIndex++] ;
  2962.       }
  2963.       else
  2964.       {
  2965.     // Do nothing.
  2966.       }
  2967.     }
  2968.  
  2969.     NewDrives >>= 1 ;
  2970.     OldDrives >>= 1 ;
  2971.   }
  2972.  
  2973.  /***************************************************************************
  2974.   * Save the new item count.                            *
  2975.   ***************************************************************************/
  2976.  
  2977.   Profile->ItemCount = Count ;
  2978.  
  2979.  /***************************************************************************
  2980.   * Fetch the display flags for the drives.                    *
  2981.   ***************************************************************************/
  2982.  
  2983.   for ( int i=ITEM_BASE_COUNT; i<Profile->ItemCount; i++ )
  2984.   {
  2985.     BOOL Flag = TRUE ;
  2986.     Item *pItem = Profile->Items [i] ;
  2987.     ULONG Size ;
  2988.  
  2989.     if
  2990.     (
  2991.       PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, pItem->QueryName(), &Size )
  2992.       AND
  2993.       ( ( Size == sizeof(Flag) ) OR ( Size == sizeof(short) ) )
  2994.       AND
  2995.       PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, pItem->QueryName(), &Flag, &Size )
  2996.     )
  2997.     {
  2998.       ;
  2999.     }
  3000.  
  3001.     if ( Flag )
  3002.       pItem->SetFlag () ;
  3003.     else
  3004.       pItem->ResetFlag () ;
  3005.   }
  3006.  
  3007.  /***************************************************************************
  3008.   * Update the total free space object.                     *
  3009.   ***************************************************************************/
  3010.  
  3011.   ( (TotalFree*) Profile->Items [ ITEM_TOTALFREE ] ) -> ResetMask ( Drives ) ;
  3012. }
  3013.  
  3014. /****************************************************************************
  3015.  *                                        *
  3016.  *    Check to see if drive should be added to display list.            *
  3017.  *                                        *
  3018.  ****************************************************************************/
  3019.  
  3020. STATIC BOOL CheckDrive ( USHORT Drive, PBYTE FileSystem )
  3021. {
  3022.  /***************************************************************************
  3023.   * First, check to see if drive is local or remote.  Remote drives are     *
  3024.   *   always monitored.                             *
  3025.   ***************************************************************************/
  3026.  
  3027.   BYTE Path [3] ;
  3028.   Path[0] = (BYTE) ( Drive + 'A' - 1 ) ;
  3029.   Path[1] = ':' ;
  3030.   Path[2] = 0 ;
  3031.  
  3032.   DosError ( FERR_DISABLEHARDERR ) ;
  3033.  
  3034.   BYTE Buffer [1024] ;
  3035.   ULONG Size = sizeof(Buffer) ;
  3036.   ULONG Status = DosQueryFSAttach ( Path, 0, FSAIL_QUERYNAME, (PFSQBUFFER2)Buffer, &Size ) ;
  3037.   DosError ( FERR_ENABLEHARDERR ) ;
  3038.  
  3039.   if ( Status )
  3040.   {
  3041. //  Log ( "ERROR: Unable to query drive %s for file system.  Status %04X.\r\n",
  3042. //    Path, Status ) ;
  3043.     return ( FALSE ) ;
  3044.   }
  3045.  
  3046.   USHORT cbName = ((PFSQBUFFER2)Buffer)->cbName ;
  3047.   strcpy ( (PCHAR)FileSystem, (PCHAR)((PFSQBUFFER2)(Buffer+cbName))->szFSDName ) ;
  3048.  
  3049.   if ( ((PFSQBUFFER2)Buffer)->iType == FSAT_REMOTEDRV )
  3050.   {
  3051.     return ( TRUE ) ;
  3052.   }
  3053.  
  3054.  /***************************************************************************
  3055.   * Attempt to open the local drive as an entire device.  If unable to do   *
  3056.   *   so, we cannot monitor this drive.                     *
  3057.   ***************************************************************************/
  3058.  
  3059.   ULONG Action ;
  3060.   HFILE Handle ;
  3061.   Status = DosOpen ( Path, &Handle, &Action, 0, 0, FILE_OPEN,
  3062.     OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE |
  3063.     OPEN_FLAGS_DASD | OPEN_FLAGS_FAIL_ON_ERROR, 0 ) ;
  3064.  
  3065.   if ( Status )
  3066.   {
  3067. //  Log ( "ERROR: Unable to open local drive %s.  Status %04X.\r\n",
  3068. //    Path, Status ) ;
  3069.     return ( FALSE ) ;
  3070.   }
  3071.  
  3072.  /***************************************************************************
  3073.   * Check to see if the drive has removable media.  We cannot monitor such. *
  3074.   ***************************************************************************/
  3075.  
  3076.   BOOL Addit = FALSE ;
  3077.   BYTE Command = 0 ;
  3078.   BYTE NonRemovable ;
  3079.  
  3080.   ULONG LengthIn = sizeof(Command) ;
  3081.   ULONG LengthOut = sizeof(NonRemovable);
  3082.  
  3083.   if 
  3084.   ( 
  3085.     NOT DosDevIOCtl 
  3086.     ( 
  3087.       Handle, 8, 0x20, 
  3088.       &Command, sizeof(Command), &LengthIn,
  3089.       &NonRemovable, sizeof(NonRemovable), &LengthOut 
  3090.     ) 
  3091.   )
  3092.   {
  3093.     Addit = NonRemovable ;
  3094.   }
  3095.  
  3096.  /***************************************************************************
  3097.   * Close the drive.                                *
  3098.   ***************************************************************************/
  3099.  
  3100.   DosClose ( Handle ) ;
  3101.  
  3102.  /***************************************************************************
  3103.   * Return the final verdict.                            *
  3104.   ***************************************************************************/
  3105.  
  3106.   return ( Addit ) ;
  3107. }
  3108.  
  3109. /****************************************************************************
  3110.  *                                        *
  3111.  *             Calibrate the Load Meter                *
  3112.  *                                        *
  3113.  ****************************************************************************/
  3114.  
  3115. STATIC ULONG CalibrateLoadMeter ( void )
  3116. {
  3117.  /***************************************************************************
  3118.   * Set result to zero as a default.                        *
  3119.   ***************************************************************************/
  3120.  
  3121.   double AdjustedMaxLoad = 0.0 ;
  3122.  
  3123.  /***************************************************************************
  3124.   * If HRTIMER.SYS has been installed . . .                    *
  3125.   ***************************************************************************/
  3126.  
  3127.   if ( OpenTimer ( ) )
  3128.   {
  3129.    /*************************************************************************
  3130.     * Increase this thread's priority to the maximum.                       *
  3131.     *************************************************************************/
  3132.  
  3133.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  3134.  
  3135.    /*************************************************************************
  3136.     * Create the calibration thread and set its priority next highest.        *
  3137.     *************************************************************************/
  3138.  
  3139.     TID tidCalibrate ;
  3140.     ULONG MaxLoad ;
  3141.     DosCreateThread ( &tidCalibrate, CounterThread, (ULONG)&MaxLoad, 0, 4096 ) ;
  3142.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM-1, tidCalibrate ) ;
  3143.     DosSuspendThread ( tidCalibrate ) ;
  3144.  
  3145.    /*************************************************************************
  3146.     * Reset the calibration count, get the time, and let the counter go.    *
  3147.     *************************************************************************/
  3148.  
  3149.     MaxLoad = 0 ;
  3150.     TIMESTAMP Time[2] ;
  3151.     GetTime ( &Time[0] ) ;
  3152.     DosResumeThread ( tidCalibrate ) ;
  3153.  
  3154.    /*************************************************************************
  3155.     * Sleep for one second.                            *
  3156.     *************************************************************************/
  3157.  
  3158.     DosSleep ( 1000 ) ;
  3159.  
  3160.    /*************************************************************************
  3161.     * Suspend the calibration counter and get the time.             *
  3162.     *************************************************************************/
  3163.  
  3164.     DosSuspendThread ( tidCalibrate ) ;
  3165.     GetTime ( &Time[1] ) ;
  3166.  
  3167.    /*************************************************************************
  3168.     * Return priorities to normal.                        *
  3169.     *************************************************************************/
  3170.  
  3171.     DosSetPrty ( PRTYS_THREAD, PRTYC_REGULAR, 0, 0 ) ;
  3172.  
  3173.    /*************************************************************************
  3174.     * Get the elapsed time and adjust the calibration count.            *
  3175.     *************************************************************************/
  3176.  
  3177.     ULONG Milliseconds ;
  3178.     ULONG Nanoseconds ;
  3179.     Milliseconds = ComputeElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  3180.  
  3181.     AdjustedMaxLoad = (double)MaxLoad * 1.0E9 ;
  3182.     AdjustedMaxLoad /= (double)Milliseconds*1.0E6L + (double)Nanoseconds ;
  3183.  
  3184.    /*************************************************************************
  3185.     * Close down the connection to HRTIMER.SYS.                 *
  3186.     *************************************************************************/
  3187.  
  3188.     CloseTimer ( ) ;
  3189.   }
  3190.  
  3191.  /***************************************************************************
  3192.   * Return the adjusted calibration count.  If HRTIMER was not there, it    *
  3193.   *   will be zero.                                *
  3194.   ***************************************************************************/
  3195.  
  3196.   return ( (ULONG)AdjustedMaxLoad ) ;
  3197. }
  3198.  
  3199. /****************************************************************************
  3200.  *                                        *
  3201.  *              General Purpose Counter Thread                *
  3202.  *                                        *
  3203.  ****************************************************************************/
  3204.  
  3205. STATIC VOID CounterThread ( ULONG Parameter )
  3206. {
  3207.   PULONG Counter = PULONG ( Parameter ) ;
  3208.  
  3209.   while ( 1 )
  3210.   {
  3211.     (*Counter) ++ ;
  3212.   }
  3213. }
  3214.  
  3215. /****************************************************************************
  3216.  *                                        *
  3217.  *    Open the Profile                            *
  3218.  *                                        *
  3219.  ****************************************************************************/
  3220.  
  3221. STATIC HINI OpenProfile ( PSZ Name, HAB Anchor, HMODULE Library, HWND HelpInstance )
  3222. {
  3223.  /***************************************************************************
  3224.   * Query the system INI for the profile file's path.                       *
  3225.   ***************************************************************************/
  3226.  
  3227.   PSZ ProfilePath = NULL ;
  3228.   ULONG Size ;
  3229.  
  3230.   if ( PrfQueryProfileSize ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"), &Size ) )
  3231.   {
  3232.     // The info exists.  Fetch it.
  3233.     ProfilePath = PSZ ( AllocateMemory ( Size ) ) ;
  3234.     PrfQueryProfileData ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"),
  3235.       ProfilePath, &Size ) ;
  3236.  
  3237.     // Build the profile file name.
  3238.     BYTE FullPath [_MAX_PATH] ;
  3239.     strcpy ( PCHAR(FullPath), PCHAR(ProfilePath) ) ;
  3240.     strcat ( PCHAR(FullPath), "\\" ) ;
  3241.     strcat ( PCHAR(FullPath), PCHAR(Name) ) ;
  3242.     strcat ( PCHAR(FullPath), ".INI" ) ;
  3243.  
  3244.     // Clean the name up and expand it to a full path.
  3245.     BYTE Path [256] ;
  3246.     DosQueryPathInfo ( FullPath, FIL_QUERYFULLNAME, Path, sizeof(Path) ) ;
  3247.  
  3248.     // Does the file exist?  If not, discard the name.
  3249.     FILESTATUS3 Status ;
  3250.     if ( DosQueryPathInfo ( Path, FIL_STANDARD, &Status, sizeof(Status) ) )
  3251.     {
  3252.       FreeMemory ( ProfilePath ) ;
  3253.       ProfilePath = NULL ;
  3254.     }
  3255.   }
  3256.  
  3257.  /***************************************************************************
  3258.   * If the profile file couldn't be found, ask the user for a path.         *
  3259.   ***************************************************************************/
  3260.  
  3261.   if ( ProfilePath == NULL )
  3262.   {
  3263.     // Set the default path.
  3264.     BYTE Path [256] ;
  3265.     DosQueryPathInfo ( PSZ("."), FIL_QUERYFULLNAME, Path, sizeof(Path) ) ;
  3266.  
  3267.     // Call up the entry dialog.
  3268.     PROFILE_PARMS Parms ;
  3269.     Parms.id = IDD_PROFILE_PATH ;
  3270.     Parms.hwndHelp = HelpInstance ;
  3271.     Parms.Path = Path ;
  3272.     Parms.PathSize = sizeof(Path) ;
  3273.     if ( WinDlgBox ( HWND_DESKTOP, HWND_DESKTOP, PFNWP(ProfileProcessor),
  3274.       Library, IDD_PROFILE_PATH, &Parms ) )
  3275.     {
  3276.       // If OK, save the approved path in the system profile.
  3277.       ProfilePath = PSZ ( AllocateMemory ( strlen(PCHAR(Path)) + 1 ) ) ;
  3278.       strcpy ( PCHAR(ProfilePath), PCHAR(Path) ) ;
  3279.  
  3280.       PrfWriteProfileData ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"),
  3281.     ProfilePath, strlen(PCHAR(ProfilePath))+1 ) ;
  3282.     }
  3283.     else
  3284.     {
  3285.       // If not, return an error.
  3286.       return ( NULL ) ;
  3287.     }
  3288.   }
  3289.  
  3290.  /***************************************************************************
  3291.   * Build the full profile file name.                        *
  3292.   ***************************************************************************/
  3293.  
  3294.   BYTE ProfileName [_MAX_PATH] ;
  3295.   strcpy ( PCHAR(ProfileName), PCHAR(ProfilePath) ) ;
  3296.   strcat ( PCHAR(ProfileName), "\\" PROGRAM_NAME ".INI" ) ;
  3297.  
  3298.  /***************************************************************************
  3299.   * Release the memory previously allocated to store the path.            *
  3300.   ***************************************************************************/
  3301.  
  3302.   if ( ProfilePath )
  3303.   {
  3304.     FreeMemory ( ProfilePath ) ;
  3305.   }
  3306.  
  3307.  /***************************************************************************
  3308.   * Open/Create the profile file and return the resultant handle.        *
  3309.   ***************************************************************************/
  3310.  
  3311.   return ( PrfOpenProfile ( Anchor, ProfileName ) ) ;
  3312. }
  3313.